Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Reg expression not working
Thanks for all your answers. Okay now here is my final question on this. Using the __DATA__ how do I get this to print in reverse. I have tried puttin the reverse function in the print statement but no luck. while (<DATA>) { $_ =~ s/John/Jack/g; $_ =~ s/\t/ /g; $_ =~ s/^/\a/; $_ =~... -
Reg expression not working
I want an output of my file where I need to substitute all tabs with spaces and put \a at the beginning of each line. Please advise what I am doing wrong with the last two substitute attempts: $db = 'aaa.txt'; open(DATA, "$db") or die "did not open: $!\n"; @dat =...
