"John W. Krahn" wrote:
>
> A more perl-ish way to write that:
>
> while ( ) {
Oops, forgot to chomp.
chomp;
> next if /^\s*(?:#|$)/; #if line begins with a # or line is blank
> print MESS if /\w/;
> print { /[A-Za-z]/ ? *TIDY : *MESS } $_;
>
> # split the string into
Stephen Kelly wrote:
>
> hi there
Hello,
> i'm trying to split a string from a line of text in a file - the split
> delimiter is a tab character '\t' - i then need to compare the 2 bits on
> either side of the tab to see if they are equal - if not eq - i write to
> tidy else i write to mess
>
>
hi there
i'm trying to split a string from a line of text in a file - the split
delimiter is a tab character '\t' - i then need to compare the 2 bits on
either side of the tab to see if they are equal - if not eq - i write to
tidy else i write to mess
? confused - this bit of code is giving me em
