home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 3
/
TheARMClub_PDCD3.iso
/
hensa
/
programming
/
perl
/
perl_1
/
Perl5001
/
pl
/
ChopExt
< prev
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1996-03-04
|
92 b
|
6 lines
foreach $name ( <*/*> ) {
@newname = split(m@/@,$name);
rename ( $name, @newname[0] );
}