in reply to 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;


holli, /regexed monk/

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;
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"