|
|
|
google unix.com
|
|||||||
| Forum | Registrera | Forum Regler | Länkar | Album | FAQ | Medlemslista | Kalender | Söka | Dagens inlägg | Markera forum som lästa |
| Shell-programmering och Skript Post frågor om ksh, CSH, SH, bash, PERL, PHP, sed, awk och andra skalskript och skal skriptspråk här. |
Mer UNIX och Linux Forum Ämnen Du kan hitta Helpful
|
||||
| Tråd | Thread Starter | Forum | Svar | Senaste Inlägg |
| inte kan få logiken för sammanslagning awk | user_prady | Shell-programmering och Skript | 7 | 12-10-2007 03:09 |
| Arkiv sammanslagning | samit_9999 | UNIX for Dummies Frågor & Svar | 3 | 11-21-2006 06:26 |
| string sammanslagning | systemsb | UNIX for Dummies Frågor & Svar | 7 | 04-04-2006 01:03 |
| Genomförandebestämmelser sammansättning (katt) | toughguy2handle | High Level Programming | 2 | 09-22-2005 03:10 |
| Sammanslagning | videsh77 | Shell-programmering och Skript | 2 | 12-14-2004 06:13 |
 |
Powered by 
|
|
|
LinkBack | Thread Tools | Sök i denna tråd | Rate Thread | Visningslägen |
|
|
04-04-2007
|
||||
|
||||
|
Sammanslagning
Hur kan jag göra detta:
datum \u003d 4 -----------> 04 Månad \u003d 3 -----------> 03 Jag vill göra en varibale heter var1 som kommer att hålla värdet av aktuellt datum och månad värde som: 2 siffror för datum. 2 siffror för månad. Så slutligen var1 bör hålla värde 0.403 --- MMDD |
|
04-04-2007
|
||||
|
||||
|
Citat:
Testa här Kod:
$DB_Date=sprintf("%02d%02d", $date, $Month);
|
|
04-04-2007
|
||||
|
||||
|
Kod:
$DB_Date=sprintf("%02d%02d", $date, $Month);
$DB_Date=printf("%02d%02d", $date, $Month);
Jag har tidigare provat ovan .... Men man delar ut 0.000 ... Egentligen är jag förlorad hur det kunde vara möjligt i PERL. |
|
04-04-2007
|
||||
|
||||
|
Kod:
#!/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;
|
Hybridläge
