разбор пути на каталог, имя файла, имя и расширение

[ocehb]

# for i in /usr/local/bin/test.ext /usr/local/bin/test test.ext test; do \
    perl -le 'printf "Src:  %s\n\tPath: %s\n\tFile: %s\n\tName: %s\n\tExt:  %s\n",$ARGV[0],($ARGV[0]=~ m#^(.+/|)(([^.]+).?(.+?|))$#)' $i; \
  done 
Src:  /usr/local/bin/test.ext
        Path: /usr/local/bin/
        File: test.ext
        Name: test
        Ext:  ext
Src:  /usr/local/bin/test
        Path: /usr/local/bin/
        File: test
        Name: test
        Ext:  
Src:  test.ext
        Path: 
        File: test.ext
        Name: test
        Ext:  ext
Src:  test
        Path: 
        File: test
        Name: test
        Ext:  

Comments

[gone-one.livejournal.com]

А почему не так? ;)

perl -e 'printf"Src:  %s\n\tPath: %s\n\tFile: %s\n\tName: %s\n\tExt:  %s\n",$_,m#^(.+/|)(([^.]+).?(.+?|))$#for@ARGV' \
    /usr/local/bin/test.ext /usr/local/bin/test test.ext test

[ocehb]

просто копипастил, а шелловое окружение оказалось написать быстрее

[deepone.livejournal.com]

http://directory.fsf.org/devel/prog/perl/zoidberg.html