Put this in music.pl and then go perl -n music.pl < data_file 2>/dev/null
This produces the output requested given the sample input you provided.chomp; if ( /(.*?)\s?(Transcribed|Arranged)?,\s+For\s+([^(,]+),?(.*)/) { print "$1$4\n"; print STDERR "# Instrument: $3 T/A:$2\n"; }
In reply to Re: Regex word options
by space_monk
in thread Regex word options
by jeffrgsf
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |