Cutting last word from a output line

Bharath.M.R has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Cutting last word from a output line by kroach (Pilgrim) on Feb 27, 2015 at 22:05 UTC
To get only the last word of a commands output: my ($variable) = `echo $line` =~ /(\w+)$/; [download] The parentheses around $variable enforce list context, which assigns the only pattern match of /(\w+)$/ (which is the last word of the command output) to $variable instead of just evaluating whether the string matches that pattern. Had the parentheses been omitted, $variable would contain 1 if there were any words at the end of your commmands output and 0 otherwise. If you want to actually remove the last word from a string, you can use regex substitution and capture the match: my $output = `echo $line`; $output =~ s/(\w+)$//; my $last_word = $1; [download] The last word gets captured into the $1 variable replaced with an empty string (i.e. removed).	[reply] [d/l] [select]
Re^2: Cutting last word from a output line by Bharath.M.R (Initiate) on Feb 28, 2015 at 09:44 UTC
Hi Experts, First of all i want thank all and i am glad to be a part this forum. Thanks for the very quick response. My query is slightly different [not echoing a line , a command instead], sorry i posted slightly different. my requirement is like below. When i give a command like below , sysname =`snmpwalk.pl -c $string -t 100 + -r 2 $ipa +ddress sysName \|awk '{print $NF}' [download] I get a output like below. `sysName.0 : OCTET STRING- (ascii): USWLS-P-TR03-C4510RE-1.adagnet.net` [download] in that i want last word that is "USWLS-P-TR03-C4510RE-1.adagnet.net" to be assigned to a variable.	[reply] [d/l] [select]
Re^3: Cutting last word from a output line by kroach (Pilgrim) on Feb 28, 2015 at 12:31 UTC
Replace \w (word character) with \S (non-whitespace) in the regular expression and it should work. my ($variable) = `your command` =~ /(\S+)$/; [download]	[reply] [d/l]
Re^3: Cutting last word from a output line by karlgoethebier (Abbot) on Feb 28, 2015 at 15:50 UTC
I continue taking your specs literally. I assume that you: can't modify snmpwalk.pl want to set an environment variable So i jumped to the conclusion, that you need something like this: `karls-mac-mini:monks karl$ sysname=$(./snmpwalk.pl \| perl -ae 'print p +op @F') karls-mac-mini:monks karl$ echo $sysname USWLS-P-TR03-C4510RE-1.adagnet.net` [download] See also I know what I mean. Why don't you?. ~~BTW, if you are on Windows, where does your `awk` come from? Cygwin? Or do you expect a port to PowerShell?~~ Edit: Strucked out useless/annoying comment. Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply] [d/l] [select]
Re^4: Cutting last word from a output line by Bharath.M.R (Initiate) on Feb 28, 2015 at 16:07 UTC
Re^5: Cutting last word from a output line by karlgoethebier (Abbot) on Feb 28, 2015 at 17:26 UTC
Re^4: Cutting last word from a output line by Bharath.M.R (Initiate) on Feb 28, 2015 at 18:16 UTC
Re^5: Cutting last word from a output line by karlgoethebier (Abbot) on Feb 28, 2015 at 18:44 UTC
Some notes below your chosen depth have not been shown here
Re^3: Cutting last word from a output line by Bharath.M.R (Initiate) on Feb 28, 2015 at 10:21 UTC
I am running on winodws platform.	[reply]
Re: Cutting last word from a output line by GotToBTru (Prior) on Feb 27, 2015 at 19:37 UTC
What do you have so far? The `shift` command will return each command line parameter in order. `split /\s+/,$string` will divide `$string` up by spaces, which might work for dividing the command output into words. Dum Spiro Spero	[reply] [d/l] [select]
Re: Cutting last word from a output line by karlgoethebier (Abbot) on Feb 27, 2015 at 19:43 UTC
I assume you mean something like this: `#!/usr/bin/env perl -a use strict; use warnings; use feature qw (say); my $var = pop @F; say $var; __END__ karls-mac-mini:monks karl$ echo foo bar \| ./1118114.pl bar` [download] Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply] [d/l]
Re: Cutting last word from a output line by crusty_collins (Friar) on Feb 27, 2015 at 19:39 UTC
why not do this $str =~ /(\w+)$/;	[reply]
Re: Cutting last word from a output line by fishmonger (Chaplain) on Feb 28, 2015 at 19:47 UTC
The OP cross posted this on perlguru and possibly other forums. http://perlguru.com/gforum.cgi?post=81021;sb=post_latest_reply;so=ASC;forum_view=forum_view_collapsed;;page=unread#unread	[reply]