So, what's the latest with this? I can just upload the module I
posted to CPAN but I'd like to have some consensus around this...
--Bill.
[EMAIL PROTECTED] (William R Ward) writes:
> [EMAIL PROTECTED] (Neil Bowers) writes:
> > So now how about wrapping this up in a module, and having the script
> > use that? That way Ronald's CGI could use it. Also I notice that
> > Mark Veltzer's Meta distribution has a subset of this functionality,
> > in Meta::Utils::Dos. Wouldn't be surprised if other people have modules
> > doing some of this stuff too.
> >
> > Text::CRLF? Interface?
> >
> > $crlf = Text::CRLF->new();
> >
> > # default behaviour - convert to my platform, from STDIN to STDOUT
> > $crlf->convert();
> >
> > # a dos2unix filter
> > $crlf->dos2unix($INFILE, $OUTFILE);
> >
> > # i don't care where it came from, just where it's going
> > $crlf->to_unix($INFILE, $OUTFILE);
> >
> > Hmm, you can't have a sub called 2unix(), so maybe the other methods
> > should be called dos_to_unix ...?
> >
> > I'll write the testsuite.
>
> OK, here's my idea for such a module... Its AUTOLOAD function
> supports methods named X2Y, X_to_Y, XtoY, X_toY, or Xto_Y. Or simply
> toY, to_Y, or _to_Y. Or convert() as in your example. You can use
> uppercase letters if you like; it's case-insensitive. X and Y are one
> of "crlf", "cr", "lf", or any of several aliases for these:
> * Instead of "crlf" you can say "dos," "windows," "win32," or "mswin."
> * For "lf" you can say "unix," "linux," "darwin," or "osx."
> * For "cr" you can say "mac" or "macos."
> Again, these are case-insensitive, so "DOS2UNIX" or "MacOS9ToDarwin".
>
> I got a little carried away with the Mac regexp's, I'm afraid.
> For OSX (Darwin), I match mac(intosh)?os(x|1[0-9])
> For all other Mac's, it uses mac(intosh)?(os[1-9])?
> It seems to work, though...
>
> Also, if you don't feel like using OO syntax, you can also import
> methods. If you say "use Text::CRLF 'dos2unix'" then that function
> will be available in your current package. It uses the object
> $DEFAULT in the Text::CRLF package and calls the appropriate method.
>
> I need to write more comments, but here's the code anyway...
>
>
>
> package Text::CRLF;
>
> use strict;
> use vars qw($AUTOLOAD $DEFAULT);
>
> my $crlf = "\x0D\x0A";
> my $cr = "\x0D";
> my $lf = "\x0A";
>
> my $myPlatform = $lf;
> $myPlatform = $cr if $^O =~ /mac/i;
> $myPlatform = $crlf if $^O =~ /mswin|dos/i;
>
> my %subs = (
> convert => sub { s/($crlf|$cr|$lf)/$myPlatform/og },
> crlf2lf => sub { s/$crlf/$lf/og },
> lf2crlf => sub { s/$lf/$crlf/og },
> cr2crlf => sub { s/$cr/$crlf/og },
> cr2lf => sub { s/$cr/$lf/og },
> crlf2cr => sub { s/$crlf/$cr/og },
> lf2cr => sub { s/$lf/$cr/og },
> "2crlf" => sub { s/($crlf|$cr|$lf)/$crlf/og },
> "2cr" => sub { s/($crlf|$cr|$lf)/$cr/og },
> "2lf" => sub { s/($crlf|$cr|$lf)/$lf/og },
> );
>
> sub DESTROY { }
>
> sub AUTOLOAD
> {
> my($self, @args) = @_;
> my($pack, $func) = ($AUTOLOAD =~ /^(.+)::(.+)$/);
> $func = lc $func; # Case insensitive
> $func =~ s/_?to_?/2/; # Allow "crlf_to_lf" if user prefers
> $func =~ s/unix|linux|darwin|mac(intosh)?os(x|1[0-9])/lf/g;
> $func =~ s/mac(intosh)?(os[1-9])?/cr/g;
> $func =~ s/dos|windows|win32|mswin/crlf/g;
>
> die qq/Can't locate object method "$func" via package "$pack"/
> unless exists $subs{$func};
>
> my $sub = $subs{$func};
> foreach (@args)
> {
> $_ = join('', <$_>)
> if (ref $_ && (ref $_ eq 'GLOB') || $_->isa("IO::Handle"));
> &$sub;
> }
> wantarray ? @args : (@args ? \@args : $args[0]);
> }
>
> $SIG{ALRM} = sub { die "alarm" };
> alarm(10);
>
> sub import
> {
> my($pkg, @funcs) = @_;
> my $callpkg = caller(0);
> $DEFAULT = new $pkg;
> foreach my $f (@funcs)
> {
> eval "sub exp_$f { \$DEFAULT->$f(\@_); }";
> die "eval failed: $@" if $@;
> eval '*'.$callpkg.'::'.$f.' = \&exp_'.$f;
> die "eval failed: $@" if $@;
> }
> }
>
> sub new
> {
> my $class = shift;
> bless { @_ } => $class;
> }
>
> 1;
>
>
> --
> William R Ward [EMAIL PROTECTED] http://www.wards.net/~bill/
> -----------------------------------------------------------------------------
> If you're not part of the solution, you're part of the precipitate.
--
William R Ward [EMAIL PROTECTED] http://www.wards.net/~bill/
-----------------------------------------------------------------------------
AMAZING BUT TRUE: There is so much sand in northern Africa that if it were
spread out it would completely cover the Sahara Desert!
