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

[Chris Nandor <pudge@pobox.com>]

At 16:21 +0900 1999.08.11, robinmcf@altern.org wrote:
>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;
>}
>}

perl changes the name of the original for in-place editing, and creates a
new file with the old name.  Try:

 my @files = @ARGV;
while(<>) { ... }
for (@ARGV) { ... }

Or something.

Or just edit the GU…I resource in the MacPerl app (using ResEdit or
something) to globally set the creator of files created by MacPerl.

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

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