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
Ungefähr so:
Ergebnis: 02251137
Edit: Macht nur Probleme bei Dateinamen mit Leerzeichen drin ... hmmm doch lieber von vorn? Das scheint mir irgendwie ziemlich unsicher, schade, dass Du das Modul nicht nehmen kannst.
Edit2: Ich glaub es hilft nix, denn wenn ein besonders schlauer Mensch eine Datei mit dem Namen 'Feb 30 11:87 filename' anlegt, schaust Du sonst dumm aus der Wäsche ;)\n\n
<!--EDIT|Crian|1078134870-->
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
#!/usr/bin/perl
use strict;
use warnings;
my $input = " -rw-r--r-- 3 owner group size Feb 25 11:37 filename";
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[-4]} .
sprintf("%02s%05s", $felder[-3], $felder[-2]);
$ergebnis =~ y/://d;
print "$ergebnis\n";
Ergebnis: 02251137
Edit: Macht nur Probleme bei Dateinamen mit Leerzeichen drin ... hmmm doch lieber von vorn? Das scheint mir irgendwie ziemlich unsicher, schade, dass Du das Modul nicht nehmen kannst.
Edit2: Ich glaub es hilft nix, denn wenn ein besonders schlauer Mensch eine Datei mit dem Namen 'Feb 30 11:87 filename' anlegt, schaust Du sonst dumm aus der Wäsche ;)\n\n
<!--EDIT|Crian|1078134870-->
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