|
|
|
google unix.com
|
|||||||
| Forums | Registrer | Forum Regler | Links | Albums | FAQ | Members List | Kalender | Søgning | Dagens Stillinger | Mark Forums Read |
| Shell Programmering og Scripting Post spørgsmål om ksh, CSH, SH, Bash, Perl, PHP, SED, AWK og ANDRE shell scripts og Shell scriptsprog her. |
Mere UNIX og Linux Forum Emner du måske kan finde Helpful
|
||||
| Tråd | Thread Starter | Forum | Svar | Last Post |
| ikke kan få logik for concatenation awk | user_prady | Shell Programmering og Scripting | 7 | 12-10-2007 03:09 AM |
| File Concatenation | samit_9999 | UNIX for dummyer Spørgsmål & svar | 3 | 11-21-2006 06:26 AM |
| string concatenation | systemsb | UNIX for dummyer Spørgsmål & svar | 7 | 04-04-2006 01:03 PM |
| Gennemførelsesbeføjelser Concatenation (CAT) | toughguy2handle | Højtstående Programmering | 2 | 09-22-2005 03:10 AM |
| Concatenation | videsh77 | Shell Programmering og Scripting | 2 | 12-14-2004 06:13 AM |
 |
Powered by 
|
|
|
LinkBack | Thread Tools | Søg denne tråd | Rate Thread | Display Modes |
|
|
04-04-2007
|
||||
|
||||
|
Concatenation
Hvordan kan jeg gøre dette:
dato \u003d 4 -----------> 04 Måned \u003d 3 -----------> 03 Jeg ønsker at gøre en varibale opkaldt var1, som vil holde værdien af den aktuelle dato og måned værdi som: 2 cifre til dato. 2 cifre for måned. Så til sidst var1 bør holde værdi 0.403 --- MMDD |
|
04-04-2007
|
||||
|
||||
|
Citat:
Prøv dette Code:
$DB_Date=sprintf("%02d%02d", $date, $Month);
|
|
04-04-2007
|
||||
|
||||
|
Code:
$DB_Date=sprintf("%02d%02d", $date, $Month);
$DB_Date=printf("%02d%02d", $date, $Month);
Jeg har tidligere forsøgt ovenstående .... Men det giver ud af 0.000 ... Egentlig er jeg fortabt, hvordan det kunne være muligt i PERL. |
|
04-04-2007
|
||||
|
||||
|
Code:
#!/bin/perl -w
use IO::Handle;
($day, $month, $year) = (localtime)[3,4,5];
$month=$month+1;
$year=$year+1700;
$DB_Date=printf("%02d%02d", $date, $Month);
open (dbfile, "/data1/scp/store/DB/0403/SCP_PP_SUBS.dat") or die "Couldn't get at THE FILE";
@data;
$credit;
$count =0;
print "DB_Date:: $DB_Date \n\n";
print "LESS then the 100 Credit $day/$month/$year\n\n";
print "-------------------------------------------\n";
while (<dbfile>)
{
........................
..........................
............................
...........................
Do some file parsing operation
}
print "Total Count: $count \n";
close dbfile;
|
|
| Bogmærker |
| Thread Tools | Søg denne tråd |
| Display Modes | Bedøm denne tråd |
|
|
Hybridtilstand
