Understanding perl code

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Help understanding perl script

Hello, A former sys admin placed this script on one of our boxes and it needs to be adjusted, but I'm not familiar with perl. Can someone help break this down for me? I'm particularly interested in the -mtime function. What's the time frame being referenced here. ...

2. Shell Programming and Scripting

Understanding an example of perl map() function

Hello, I have many folders under which there is always a file with the same name, which contains the data I need to process later. A perl oneliner was borrowed perl -e 'print "gene_id\t", join("\t", map {/(.*)\//; $1} @ARGV),"\n";' *_test.trim/level.csvto make a header so that each column...

3. Shell Programming and Scripting

Help with perl code understanding

Hi, I need to understand below perl code, can some one advise me. perl -MDate::Parse -e'BEGIN{$main::now=time;$main::old=(time-60*30)}' -nE'if(/^(\w+\s+\d+\s+\d+:\d+:\d+)/) {$t=str2time $1; $t > $old && $t < $now && print}'

4. Shell Programming and Scripting

understanding thread in perl

Hi all, I am trying to build threads which will go to localhost and list the files in given folder. #!/usr/bin/perl use threads; my $t1 = threads->new(\&sub1, 1); my $t2 = threads->new(\&sub2, 2); push(@threads,$t1); push(@threads,$t2); foreach...

5. Shell Programming and Scripting

Help understanding some Perl code.

Well, I found myself trying to fix some Perl code (Ive never done any Perl in my life) and I pinpointed the place where the bug could be. But to be sure I have to know what does a few line of code mean: $files_lim =~ (/^\d*$/) $files_lim =~ (/^\d*h$/) $files_age =~ s/h// The code where...

6. Shell Programming and Scripting

Help understanding Perl code.

7. Shell Programming and Scripting

Understanding perl statement

can someone help me how to interpret this line? my ($class, $hashref) = @_; my $portfolio = {}; if ($hashref->{portfolio_id}) { ($portfolio) = GEmySQL->get ("select * from portfolio where portfolio.id=$hashref->{portfolio_id}"); } =============== Question: how do...

8. Shell Programming and Scripting

Perl: Understanding @allwords

Hi guys, Here is the code: my @allwords = (); my %seen=(); foreach my $curr (@allwords) { $seen{$curr} = 1; } @allwords = keys %seen; my question is: what will @allwords now contain, or how would the entries in the @allwords array be different after this manipulation? Thank...

9. Shell Programming and Scripting

perl command understanding

Hi All, Can you please help me interpret the following command. Which I am not able to understand. Also can you please illustrate what it is used for. perl -pi -e 's/\015//g' text_file.dat Regards

10. Shell Programming and Scripting

Need help understanding perl script error

I solicited this site earlier this week and got a good answer for a perl Script so I made this script from what understood from the answers But now I have a bug and I'm stump. It doesn't parse correctly the Output it stays on the first line My $f2 and reprints in a endless loop I'm sure there...

LEARN ABOUT PHP

array_walk

ARRAY_WALK(3)								 1							     ARRAY_WALK(3)

array_walk - Apply a user supplied function to every member of an array

SYNOPSIS

       bool array_walk NULL (array  &$array, callable  $callback, [mixed  $userdata])

DESCRIPTION

	Applies the user-defined $callback function to each element of the $array array.

       array_walk(3)  is  not  affected  by  the  internal array pointer of $array. array_walk(3) will walk through the entire array regardless of
       pointer position.

PARAMETERS

	      o $array
		- The input array.

	      o $callback
		- Typically, $callback takes on two parameters. The $array parameter's value being the first, and the key/index second.

	      Note

		      If $callback needs to be working with the actual values of the array, specify the first parameter of $callback as  a  refer-
		     ence. Then, any changes made to those elements will be made in the original array itself.

	      Note

		      Many  internal  functions  (for example strtolower(3)) will throw a warning if more than the expected number of argument are
		     passed in and are not usable directly as a $callback.

	       Only the values of the $array may potentially be changed; its structure cannot be altered, i.e., the programmer cannot  add,  unset
	      or  reorder  elements.  If  the  callback  does not respect this requirement, the behavior of this function is undefined, and unpre-
	      dictable.

	      o $userdata
		- If the optional $userdata parameter is supplied, it will be passed as the third parameter to the $callback.

RETURN VALUES

	Returns TRUE on success or FALSE on failure.

ERRORS
/EXCEPTIONS
	If function $callback requires more parameters than given to it, an error of level  E_WARNING will be generated  each  time  array_walk(3)
       calls $callback.

EXAMPLES

       Example #1

	      array_walk(3) example

	      <?php
	      $fruits = array("d" => "lemon", "a" => "orange", "b" => "banana", "c" => "apple");

	      function test_alter(&$item1, $key, $prefix)
	      {
		  $item1 = "$prefix: $item1";
	      }

	      function test_print($item2, $key)
	      {
		  echo "$key. $item2<br />
";
	      }

	      echo "Before ...:
";
	      array_walk($fruits, 'test_print');

	      array_walk($fruits, 'test_alter', 'fruit');
	      echo "... and after:
";

	      array_walk($fruits, 'test_print');
	      ?>

	      The above example will output:

	      Before ...:
	      d. lemon
	      a. orange
	      b. banana
	      c. apple
	      d. fruit: lemon
	      a. fruit: orange
	      b. fruit: banana
	      c. fruit: apple

SEE ALSO

       array_walk_recursive(3),  iterator_apply(3),  list(3), each(3), call_user_func_array(3), array_map(3), information about the callback type,
       foreach.

PHP Documentation Group 													     ARRAY_WALK(3)

Programming