[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] How do I......?




>#!perl -w
>#
># lf2cr4mac.pl - droplet to convert <CR.<LF> and/or <LF> to <CR>.
>#
># Written by Chris Nandor, 9712.
>
>$/ = "\012";
>$^I = ".orig";
>
>while (<>) {
>    s/\015?\012/\015/g;
>    print;
>}

In the above droplet where can I put code for changing the creator codes of
the texts generated? (the version below ends up with the ".orig" as MacPerl
docs)

#!perl -w
#
# lf2cr4mac.pl - droplet to convert <CR.<LF> and/or <LF> to <CR>.
#
# Written by Chris Nandor, 9712.

$/ = "\012";

($\,$,) = ("\n"," ");
	foreach(@ARGV) {
MacPerl::SetFileInfo('McPL', 'TEXT',$_);
$^I = ".orig";
while (<>) {
 			s/\015?\012/\015/g;
    print;
}
}

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org