Re: What does belg4mit's signature do?

It reads STDIN line by line
substitutes ; by ' if it resides within a word and next character is a 'm' or 'n' or 's' or 't'
writes result to STDOUT

e.g. input: don;t output: don't

perl -MO=Deparse -wpe "s/\b;([mnst])/'$1/g"

BEGIN { $^W = 1; }
LINE: while (defined($_ = <ARGV>)) {
    s/\b;([mnst])/'$1/g;
}
continue {
    print $_;
}

-e syntax OK
[download]

Comment on Re: What does belg4mit's signature do? Download Code

Replies are listed 'Best First'.
Re^2: What does belg4mit's signature do? by cog (Parson) on Oct 01, 2004 at 11:35 UTC
Weird... `$ perl -MO=Deparse -wpe "s/\b;([mnst])/'$1/g" BEGIN { $^W = 1; } LINE: while (defined($_ = <ARGV>)) { s/\b;([mnst])/'/g; } continue { print $_; } -e syntax OK` [download] Where did my $1 went to? :-\| This should be something trivial, but... my $1 is disappearing... :-\| I'm going from "don;t" to "don'" :-\| Wasn't `'` the same thing as `::`?	[reply] [d/l] [select]
Re^3: What does belg4mit's signature do? by ccn (Vicar) on Oct 01, 2004 at 12:09 UTC
Your shell has interpolated `$1` before it came to perl You may try `perl -MO=Deparse -wpe 's/\b;([nmst])/\'$1/g'`	[reply] [d/l] [select]