Re:
> crlf => sub { s/[$dos$mac$unix]+/$myPlatform/og },
Three (hair-splitting) questions:
1. Isn't [$dos$mac$unix]+ going to match the same as [$dos]+?
2. Do you need 'g'?
3. Can anyone benchmark whether s/[$dos]+$/$myPlatform/o is faster than
s/[$dos]+/$myPlatform/o? It seems like it ought to be, but my efforts
haven't proven it.
Brad
On Wed, 27 Mar 2002, Joshua Polterock wrote:
>
> On Wed, 27 Mar 2002, William R Ward wrote:
>
> > Programming by committee! This is kind of fun, in a twisted way. OK,
> > incorporating John's and Wade's suggestions:
> >
>
> All included, I believe we come to the version below.
>
> Do the '\x0D' and '\x0A', which appear to work fine on my Solaris 2.7 box,
> make this more portable? Also, do we still have platform-centricity in the
>
> my $unix = "\n";
>
> statement?
>
> Josh
>
> #!/usr/bin/perl -w
>
> use strict;
> use File::Basename;
>
> my $dos = "\x0D\x0A";
> my $mac = "\x0D";
> my $unix = "\n";
> my $myPlatform = $unix;
> my $iam = basename($0);
>
> $myPlatform = $mac if $^O =~ /mac/i;
> $myPlatform = $dos if $^O =~ /win|dos/i;
>
> my %subs = (
> crlf => sub { s/[$dos$mac$unix]+/$myPlatform/og },
> dos2unix => sub { s/$dos/$unix/o },
> unix2dos => sub { s/$unix/$dos/o },
> mac2dos => sub { s/$mac/$dos/o },
> mac2unix => sub { s/$mac/$unix/o },
> dos2mac => sub { s/$dos/$mac/o },
> unix2mac => sub { s/$unix/$mac/o },
> );
>
> die "I do not recognize my own name."
> unless exists ($subs{$iam});
>
> my $sub = $subs{$iam};
> while(<STDIN>) {
> &$sub;
> print;
> }
>
> exit(0);
>
>
>
