print "My name is $0\n" doesn't meet my requirement.
since if I invoke my script as
>perl filename.pl
just filename.pl is returned. That is not what I want.
Instead, the module FindBin is perfectly what I was looking for.
Thanks Peter ...
José.
"Jonathan E. Paton" <[EMAIL PROTECTED]> a écrit : "Subject: My name is ?"
That's easy, your name is José Nyimi ;-)
> How can I tell my script to get the complete
> name of the file where this script is written?
>
> I can write something like:
>
> #!/usr/bin/perl -w
>
> use strict;
> print "My name is ",__FILE__,"\n";
> __END__
Ah, you mean:
print "My name is $0\n";
Jonathan Paton
=====
$_=q|.,&@$$. ,.@$&@$. .&$$@. ,,$ ....!$_=$p.'&$@.',y'&$@' .,';for(/\S+/g){
!|.q| .$ .,@, ,$, .,.. @, ,$ ,,@ .,,.!++$.<22?${'y'.$_}=chr$.+64:[$$=${'y'
!|.q| ,@$@&.,. $$$&, ..@&&$,,, $., ..!.$_},$y.=($.=~/22\|26\|3(3\|7)/x?' '
!|.q|. @ ., ,.&,,, , .$..&. .,$ .,,!.$$:"\l$$")]};$y=~/ (.*)/;warn"$1\n"
!|.q|. $ .,. .,$$&&$...&., @.,.&@$@ .|,map{-$|--?$r:$p.=$_}split'!';eval$r
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------
Yahoo! Mail -- Une adresse @yahoo.fr gratuite et en français !
