A few questions :) splice and split 3

[travs69]

Can these two steps be combined into one (I need to remove the last 2 elements and the first element)? I thought I could do -2,3 but it doesn't work that way.

splice(@array,-2,2);
splice(@array,0,1);

Can these two be combined?
my @array = $telnet->waitfor('/]/');
my @newarray = split /\n/, $array[0];

I tried
@newarray = split(/\n/, $telnet->waitfor('/]/')); (And a few variations but everything is coming back as a 1).

Thanks in advance as always!

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[prex1]

Can't see anything else as

@array=@array[1..$#array-2];

(no warning issued if array too short, simply returns the null list).
For the second one this one should work

my@newarray=split/\n/,($telnet->waitfor('/]/'))[0];

Franco

http://www.xcalcs.com

: Online tools for structural design

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[MillerH]

prex's code is probably best for the second, since it is literal. But if you know that only one element is returned, that map would be functionally equivalent and easier to read:

[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]@newarray[/blue] = [url=http://perldoc.perl.org/functions/map.html][black][b]map[/b][/black][/url] [red]{[/red][url=http://perldoc.perl.org/functions/split.html][black][b]split[/b][/black][/url] [red]"[/red][purple][purple][b]\n[/b][/purple][/purple][red]"[/red][red]}[/red] [blue]$telnet[/blue]->[maroon]waitfor[/maroon][red]([/red][red]'[/red][purple]/]/[/purple][red]'[/red][red])[/red][red];[/red]

- Miller

 

[KevinADC]

Have you tried like the documentation of the Net::Telnet module shows:

($prematch, $match) = $obj->waitfor($matchop);



------------------------------------------
- Kevin, perl coder unexceptional!

 

[travs69]

Never even noticed that before. I'll have to give it a try. Stars for ALL!!


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[KevinADC]

RTM Travis

------------------------------------------
- Kevin, perl coder unexceptional!