Thanks. That likely will help. However, I still can't even get it to perform any action. I have it set to print to the screen right now but it isn't creating any output.
Mathew Guerrero, Citlali (GE, Corporate, consultant) wrote: > Hi Mathew : > > This is what your regexp ($line =~ s/^.*\s//g;)means : Remove any > kind of character follow by ONE SPACE at the BEGINNING of the string, > and you are right it do not do what you want. > If I understand right what you want to do is preserve the name of > the subfolder, if that is correct then you may need this regexp: > > $line =~ s/.*[\s+\t+](\w+)/$1/ > > this regexp does : Remove any character follow by : one or more spaces > or one or more tabs, follow by one or more words(check the perldoc if > you do not know the meaning of \w) and all this patron replace it with > $1 which is the (\w+) and should be(according to your example) =A > Perfect Circle > > I hope it help =D > But if you have any questions I kindly suggest you to take a look at : > > http://www.troubleshooters.com/codecorn/littperl/perlreg.htm > or > http://www.perl.com/doc/manual/html/pod/perlre.html > > Cheers > Mathew escribió: >> I have a file with a list of subfolders. The list was created using dir >> and each entry is like thus: >> >> 12/12/2005 04:38 AM <DIR> A Perfect Circle >> >> I then created a simple script that I hoped would eliminate everything >> prior to the last bit of text which follows the big space. >> >> open FILE, "H:\My Music\folderlist.txt"; >> >> foreach my $line (readline FILE) { >> $line =~ s/^.*\s//g; >> open FILE2, "H:\My Music\artists.txt"; >> print FILE2 $line . "\n"; >> close FILE2; >> } >> >> close FILE; >> >> Not only do I think the regex is very wrong, but it isn't doing >> anything. If I had to guess, it is saying to replacy everything up to >> the first space with nothing. While this isn't what I want it to do, >> having it do that would probably be a good step in the right direction. >> However, it won't even do that. >> >> What am I doing wrong here? >> >> Mathew >> >> >> > > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
