Grabbing tokens

kidwahoo94 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Grabbing tokens by broquaint (Abbot) on May 13, 2003 at 14:08 UTC
A simpler option may be backticks my $res = (split ' ', `net use J\: \\\\$hostname\\c\$`)[2]; [download] See. `STRING` under Regexp Quote-Like Operators in `perlop` for more info. HTH `_________ broquaint`	[reply] [d/l]
Re: Grabbing tokens by cbro (Pilgrim) on May 13, 2003 at 14:12 UTC
I ran a test and verified that this will work: #!/usr/local/bin/perl $prg = "testers.sh"; $ret_var = <`$prg`>; print "\n\n$ret_var\n\n"; [download] I got what testers.sh echoed back in $ret_val. As well, I verified that the command that testers.sh executed (`/bin/cp file1 file2`) worked too. So, the execution was not hindered, and the output of testers.sh was brought back into my Perl program for parsing. This should do it. HTH, Chris	[reply] [d/l]
Re: Re: Grabbing tokens by Skeeve (Parson) on May 14, 2003 at 08:58 UTC
Are you sure? I tried and it failed. To my understanding $ret_var = <`$prg`>; [download] would first run $prg because of the backticks, and then try to handle this output as a filehandle. $ret_var = `$prg`; [download] will do what you stated.	[reply] [d/l] [select]
Re: Re: Re: Grabbing tokens by cbro (Pilgrim) on May 14, 2003 at 12:43 UTC
Yes, I'm sure...otherwise, I would not have stated that I tested it. Here are the exact programs so that you can verify. I will admit, I did mistype one thing...I forgot to put the './' in the $prg scalar: ###Begin Perl### #!/usr/local/bin/perl $prg = "./testers.sh"; $ret_val = <`$prg`>; print "\n\n$ret_val:From Perl Not BASH Script\n\n"; ###End Perl#### ###Begin Bash### #!/usr/local/bin/bash `/bin/cp /wantstats.sh /newstats.sh` echo Success ###End Bash### [download] What is printed: Success:From Perl Not BASH Script Try these scripts Skeeve. I wouldn't just claimed to have tested something...	[reply] [d/l]
Re: Re: Re: Re: Grabbing tokens by Skeeve (Parson) on May 14, 2003 at 13:03 UTC
Re: Re: Re: Re: Re: Grabbing tokens by cbro (Pilgrim) on May 14, 2003 at 13:34 UTC
Some notes below your chosen depth have not been shown here
Re: Grabbing tokens by kilinrax (Deacon) on May 13, 2003 at 14:10 UTC
Use backticks (' `command` ' or ' `qx\|command\|` '), like this: `bash-2.05$ perl -le '$_ = qx[uname -a]; split; print join q[ :: ], @_' SunOS :: prdapp5 :: 5.8 :: Generic_108528-15 :: sun4u :: sparc :: SUNW +,Ultra-Enterprise` [download] Apologies for using a different command, but I don't have access to ActivePerl right now :}	[reply] [d/l]
Re: Grabbing tokens by edan (Curate) on May 13, 2003 at 14:11 UTC
You could try (untested): my $output; chomp($output = `net use J: \\\\$hostname\\c\$`); if ($output =~ /successfully/) { print "You're in luck!\n"; } [download] If you're really partial to the third token idea, then split is your friend... -- 3dan	[reply] [d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks