Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
Don't ask to ask, just ask
 
PerlMonks  

Re: Noob Question

by bms (Monk)
on Oct 28, 2012 at 20:10 UTC ( #1001288=note: print w/ replies, xml ) Need Help??


in reply to Noob Question

Hello there! Well, there are a lot of ways you could go about this. I'll list three very easy to implement ones, each with a different approach

One, simply cd into the script directory and run your script from there.

cd C:\\Scripts

Two, use File::Basename so you can build an absolute path to your test1.txt file using dirname:

#!/usr/bin/env perl use File::Basename; use strict; use warnings; @ARGV = (dirname(__FILE__)."/test1.txt"); while(<>) { chomp; print "It was $_ that in some stooge like file!\n"; }

The above code works because your test1.txt file is located in the same directory as your script and therefore, you can use dirname with the __FILE__ variable(or $0) and simply tack on the filename to get a path to your text file.

Three, you could use an absolute path:

#!/usr/bin/env perl use strict; use warnings; @ARGV = ("C:/Scripts/test1.txt"); while (<>) { chomp; print "It was $_ that I saw in some stooge-like file!\n"; }

As you can see, there is more than one way to do it. There are still more ways than I have listed, but they should be sufficient :).


Comment on Re: Noob Question
Select or Download Code
Re^2: Noob Question
by nick1984 (Novice) on Oct 28, 2012 at 20:51 UTC
    Thank you very much all very good ways of resolving my issue!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1001288]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (11)
As of 2014-04-24 13:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (566 votes), past polls