Re: [MacPerl] MAC Filesystem Help

[Mamoru Yamanishi <yama@biotech.okayama-u.ac.jp>]

Hi Ameet,

I forgot to tell another way that is much more easy; with this method,
you may do without 'system("ls c:.....")'.  However, please be careful
to use because it is much MacPerl specific way.

Follow the latter:

1	Type following spcript in new window of MacPerl

		#! /usr/local/bin/perl

		foreach $file (@ARGV) {

			next if (-d $file);

			print "$file\n";	# replace this line
						# by your work
		}

2	Save your script in "Droplet" file type.
	(You may select the file type in Save-File-Dialog of MacPerl.)

3	On "Finder", select one or more files, which you wish to
	process, and drag&drop onto the Droplet.

When you save your script in "Droplet" file type, Finder pass 
full path's for file/folder's that dragged&dropped onto the
Droplet through "@ARGV".

You may replace 'print "$file\n";' line by your own work.

If you wish to input/output without console, you may use
&MacPerl'Ask, &MacPerl'Answer, and/or &MacPerl'Pick; using
these MacPerl specific functions, your script will become
much more Macintosh-like, I think.

-------------------------------------------------
Mamoru Yamanishi <yama@biotech.okayama-u.ac.jp>
+81-86-251-8196(voice), +81-86-251-8264(GIII fax)
Biotech. Dept., Okayama Univ.



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