Probably I am not seeing it or I am not using the "delete" correctly I had the following codes but it does not work for me
#!/bin/perl -w
...
@sysFile1 = (a_b, a_c, a_d);
@sysFile2 = (a_c, a_e, b_f);
foreach $line1 (@sysFile1){
trim(\$line1);
(my $tmp1, my $tmp2) = split/_/,... (6 Replies)
Hello guys,
I have the following question.
Consider the following code in PERL
for($xeAnumber=0; $xeAnumber<@xeAnumber; $xeAnumber++)
{
if(@xeAnumber==@final_file)
{
@final_file=@xeTimeStamp;
}... (3 Replies)
I am modifying someone else's code. There is a foreach statement printing the contents of a hash.
Can someone give me an example of printing the last element in a hash?
The output currently is
A
B
C
D
E
I want the output to be
E (1 Reply)
I wrote the following script configuring cisco router:#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
use Opsware::NAS::Connect;
my @IP = split(/\./,"$tc_device_ip$");
my $O3 = $IP;
my($host, $port, $user, $pass) =... (3 Replies)
Hello,
I want to run one (not multiple) action if an element doesn't exist in array.
for example:
@array = (1..10);
foreach $el (@array)
{
if ($el != 11)
{
print "number not found\n";
}
}
the output of this simple script:
number not found (3 Replies)
Hi, How to get previous/next element in the array perl
Example
@queue = (1, 2 ,3 , 4);
I want to get value of 1 and 2, or, 2 and 3, or 3 and 4...etc and compare to value which one is greater to do that I need to get previous and next element of array ? (1 Reply)
Hi,
I'm trying to write a script for some xml file handling, but I'm not getting too far with it.
I've got the following xml content
<?xml version="1.0" encoding="UTF-8"?>
<Test xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" >
<Operation name="OPER1">
<Action name="ACTION1">... (2 Replies)
I want to check if every <Part> element has corresponding <Description> in this sample XML.
....<Lot Of XML>
<Inv lineNumber="2">
<Item>
... (4 Replies)
Hi all
I have file with columns
F3 pathway CPS
F2
H2
H4
H5
H6 no pathway CMP
H7
H8
H9
H10
My expected output is
F3 pathway CPS
F2 pathway CPS (10 Replies)
Hi All,
I am new to perl I am stuck in simple problem I need your help
I want to define a subroutine.
sub check_if_entity_exists(@array_to_be_checked,$entityName)
I have array as
http-listener-1
http-listener-2
http-listener-3
http-listener-4
If i send http-listener-3 my... (1 Reply)
Discussion started by: javaholics
1 Replies
LEARN ABOUT PHP
reset
RESET(3) 1 RESET(3)reset - Set the internal pointer of an array to its first elementSYNOPSIS
mixed reset (array &$array)
DESCRIPTION reset(3) rewinds $array's internal pointer to the first element and returns the value of the first array element.
PARAMETERS
o $array
- The input array.
RETURN VALUES
Returns the value of the first array element, or FALSE if the array is empty.
EXAMPLES
Example #1
reset(3) example
<?php
$array = array('step one', 'step two', 'step three', 'step four');
// by default, the pointer is on the first element
echo current($array) . "<br />
"; // "step one"
// skip two steps
next($array);
next($array);
echo current($array) . "<br />
"; // "step three"
// reset pointer, start again on step one
reset($array);
echo current($array) . "<br />
"; // "step one"
?>
SEE ALSO current(3), each(3), end(3), next(3), prev(3).
PHP Documentation Group RESET(3)