Re: file extensions

If you don't want a hash:

my @quicktime_ext = qw(sdp rtsp rts mov qt smi sml smil avi vfw flcfli
+ wav bwf aiff aif aifc cdda au snd ulw mid midi smf kar qcp sd2 amr g
+sm mpeg meg m2s m1v ma1 m75 m15 mpm mpv mpa 3gp 3gpp 3g2 3gp2 mp4 mpg
+4 m4a m4p m4b m4v sdv amc swa m3u m3url swf fpx fpix dv dif);

my $re_quicktime  = '\.(' . join ('|', @quicktime_ext) . ')$';
$re_quicktime = qr/$re_quicktime/i;

print "OK" if "file.wav" =~ $re_quicktime;
[download]

holli, /regexed monk/

Comment on Re: file extensions Download Code

Replies are listed 'Best First'.
Re^2: file extensions by cazz (Pilgrim) on Apr 08, 2005 at 20:39 UTC
Or even better: `my $l = Regexp::List->new; my $re = $l->list2re(qw(sdp rtsp rts mov qt smi sml smil avi vfw flcfl +i wav bwf aiff aif aifc cdda au snd ulw mid midi smf kar qcp sd2 amr gsm mpeg meg m2s m1v ma1 m75 m1 +5 mpm mpv mpa 3gp 3gpp 3g2 3gp2 mp4 mpg4 m4a m4p m4b m4v sdv amc swa m3u m3url swf fpx fpix dv dif)) +; print OK if "file.wav" =~ $re;` [download]	[reply] [d/l]
Re^2: file extensions by ambrus (Abbot) on Apr 08, 2005 at 20:41 UTC
Great! Now the sed programmer breaks way in me and gives another possibility: `($name . "\n sdp rtsp rts mov qt smi sml smil avi whatever ") =~ /\.(\ +S)\n. \1 / or die "wrong extension"` [download]	[reply] [d/l]