The files have entries that look like this:#!/usr/bin/perl -w $fileOUT = "mp3list.txt"; open(OUTPUTFILE,">$fileOUT"); $filename = "A02.txt"; &parseDown; $filename = "A03.txt"; &parseDown; $filename = "A04.txt"; &parseDown; $filename = "A05.txt"; &parseDown; $filename = "A06.txt"; &parseDown; $filename = "A07.txt"; &parseDown; $filename = "A08.txt"; &parseDown; $filename = "A09.txt"; &parseDown; $filename = "A10.txt"; &parseDown; close(OUTPUTFILE); sub parseDown { open(INPUTFILE,"$filename"); $dir = ""; while(($line = <INPUTFILE>) != null) { $line =~ m%(.*)\\(.*)%; $tmp_dir = $1; $line = $2; if ($tmp_dir ne $dir) { print OUTPUTFILE "\n" . $tmp_dir . "\n"; $dir = $tmp_dir; } chomp($line); print OUTPUTFILE "\t" . $line . "\n"; } close(INPUTFILE); }
Paul van Dyk\Seven Ways\01 Home Paul van Dyk\Seven Ways\02 Seven Ways Paul van Dyk\Seven Ways\03 Heaven Paul van Dyk\Seven Ways\04 I Like It Paul van Dyk\Seven Ways\05 Come (and Get It) Paul van Dyk\Seven Ways\06 Forbidden Fruit Paul van Dyk\Seven Ways\07 Beautiful Place Paul van Dyk\Seven Ways\08 People Paul van Dyk\Seven Ways\09 The Greatness of Britain Paul van Dyk\Seven Ways\10 I Can't Feel It Paul van Dyk\Seven Ways\11 Words
In reply to Re: Really dumb question... ('ne' not working)
by Anonymous Monk
in thread Really dumb question... ('ne' not working)
by Apathy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |