This command will list all the files a folder without their extensions. Comes handy when doing shell scripting

perl -e 'while(<*.*>){s/\..{3}$//i;print "File \"$_\"\n";}print "\n";'

This entry was posted on Wednesday, June 27th, 2007 at 8:28 pm and is filed under Command Line, Linux, Perl. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.