perlは画像と拡張

Question

の名前を取得、私はURLまたはローカルパスのいずれかのために画像の名前と拡張子を取得しようとしている

入力が 可能性が前方または後方のいずれかスラッシュで指定http://test.com/hi23.gif または /local/test/hi23.gif または C：\テスト\ 323.gif または ファイル：\ BLA \あなたの入力は常にに起こっている知っている場合

#input: filename (i.e: http://test.com/hi4324.gif) 
sub getFileName 
{ 
    my $input = shift; 
    (my $filename = $input) =~ m/(\w+\.(jpg|png|gif|jpeg)$)/i; 
    return $filename; 
} 

#input: filename (i.e: hi4324.gif) 
sub getExtension 
{ 
    my $input = shift; 
    (my $extension = $input) =~ m/\w+\.(jpg|png|gif|jpeg)$/i; 
    return $extension; 
} 

Answer 1

3235.gif末尾に/filename.extは、単純な正規表現を使用します。

# $url has your url already 
$url =~ /.*\/(.*?)\.(.*)/; 
my ($filename, $ext) = ($1,$2); 

をしかし、それはクエリ文字列または他の様々なフォーマットで、より複雑になることがあれば、それはモジュールに引っ張って起動する方がはるかに簡単です。変数があまりにも多くなるだけです。私はいつもFile::Basenameがファイルシステムを使って作業するときにこれに最善のものであると感じました。私はそれがURLのために働くとは思わない。メインのURIモジュールは十分かもしれないようです。 URI::SplitおよびAPR::URIは、さらに柔軟性を提供します。

Answer 2

use strict; 
use warnings; 
use File::Basename; 
my @input = qw(http://test.com/hi23.gif /local/test/hi23.gif C:\test\323.gif file:\bla\3235.gif); 

foreach my $some(@input){ 
$some =~ s!\\!/!g;   
my $basename = basename($some); 

if($basename =~ m/(.*)\.(.*)/){ 
my ($image_name,$image_extension) = ($1,$2); 
print "\nInput is $some\nImage name is = $image_name, and extension is $image_extension"; 
}; 
} 

OUTPUT 

Input is http://test.com/hi23.gif 
Image name is = hi23, and extension is gif 
Input is /local/test/hi23.gif 
Image name is = hi23, and extension is gif 
Input is C:/test/323.gif 
Image name is = 323, and extension is gif 
Input is file:/bla/3235.gif 
Image name is = 3235, and extension is gif 

Answer 3

ファイル名と拡張子の両方を返すサブルーチンについてはどうですか？

sub getFileNameExt { 
    my ($path) = @_; 
    return $1, $2 if $path =~ m{([^\\/.]+([^\\/]*)$)}; 
} 

for my $p (qw(
    http://test.com/hi23.gif 
    /local/test/hi23.gif 
    C:\test\323.gif 
    file:\bla\3235.gif)) { 

    printf "%s - %s\n", getFileNameExt($p); 
} 

OUTPUT

hi23.gif - .gif 
hi23.gif - .gif 
323.gif - .gif 
3235.gif - .gif