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

[MacPerl] Re:



try this, save it as a droplet
#!perl

$file = $ARGV[0];
open (INFILE, "< $file") or die ("cannot open input file: $file, Please make
sure the file is on the desktop\n");
@input = <INFILE>;
close INFILE;
$textdone = "NULL";

$textdone=&Generic("@input");

open (OUTFILE, '>StarMax HD:Desktop Folder: output.txt') or die ("cannot open
output file: output.txt\n");
print OUTFILE $textdone;
close OUTFILE;

#---------------------------------------------------#
sub Generic {
local ($text) = @_;
$text = ":::::Processed::::\n" . $text;
return $text;
}


Chip Cuntz wrote:

> Hello all,
>
> Could anyone provide me with a snipit of MacPerl to process a file dropped
> on a Perl application.  I think I have seen this done here on the list, but
> could not find the example.  \
>
> Thanx,
>
> Chip Cuntz
> Software Engineer
>
>    MCI Inc.
>    2896/117, E3-519
>    2424 Garden of Gods
>    Colorado Springs, Colorado  80919
>    v622.1305, 719.535.1305
>    mailto:chipperc.cuntz@mci.com
>
> ***** Want to unsubscribe from this list?
> ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch




***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch