>#!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