Opened by mobas at 2004-02-20 10:30
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=ptk,02.03.2004, 12:10]Und nicht vergessen, dass man auch mit solchem Input fertig werden muss:
Das passiert, wenn die Datei aelter als sechs Monate ist.[/quote]
Ergebnis
(man beachte die 0 vor der 2003)
passt doch ?!
Edit: Naja, es hängt von der weiteren Verwendung ab, ob es passt (wenn man es zusammen mit 02251137 verwendet).
Auf jeden Fall war das ein guter Einwurf.\n\n
<!--EDIT|Crian|1078389242-->
Code: (dl
)
my $input = " -rw-r--r-- 3 owner group size Feb 25 2003 filename";
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/usr/bin/perl
use strict;
use warnings;
#my $input = " -rw-r--r-- 3 owner group size Feb 25 11:37 filename";
my $input = " -rw-r--r-- 3 owner group size Feb 25 2003 filename";
$input =~ s~^\s+~~;
$input =~ s~\s+$~~;
my @felder = split /\s+/, $input;
my %monatsnummer = ( 'Jan' => '01',
'Feb' => '02',
'Mar' => '03',
'Apr' => '04',
'Mai' => '05',
'Jun' => '06',
'Jul' => '07',
'Aug' => '08',
'Sep' => '09',
'Oct' => '10',
'Nov' => '11',
'Dec' => '12',
);
my $ergebnis = $monatsnummer{$felder[5]} .
sprintf("%02s%05s", $felder[6], $felder[7]);
$ergebnis =~ y/://d;
print "$ergebnis\n";
Ergebnis
Code: (dl
)
022502003
(man beachte die 0 vor der 2003)
passt doch ?!
Edit: Naja, es hängt von der weiteren Verwendung ab, ob es passt (wenn man es zusammen mit 02251137 verwendet).
Auf jeden Fall war das ein guter Einwurf.\n\n
<!--EDIT|Crian|1078389242-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite