 |
| Prev-20 | Home | Next-20 |
| Prev-20 | Home | Next-20 |
| Prev-Msg | Prev-Thread | Activeperl | May-2008 | Next-Thread | Next-Msg |
| Subject: | Basic PERL Script |
| Group: | Activeperl |
| From: | Bernard Hill |
| Date: | 6 May 2008 |
Good morning, All.
<br>
<br>Not sure if this list supports basic questions, but I'll pose the query to find out.
<br>
<br>I am new to PERL and working on an basic PERL script. The script will import values into an array. when complete, I want to do a calculation based on two feilds and drop the answer into the third field. Basically I have the following script, but keep getting a syntax error and can't figure out where I've gone wrong:
<br>
<br>sub {
<br> $output = '';
<br>
<br> chomp $_[0];
<br> $delim = $_[1];
<br> @input_fields = split /$delim/, $_[0];
<br>
<br> # input the values into the array
<br> for($i=0; $i<$#input_fields; $i++) {
<br> if i$ == 2
<br> {
<br> # perform the calculation
<br> $input_fields[$i] = $input_fields[$i-1] * $input_fields[$i-2];
<br> }
<br> output = $output . $input_fields[$i] . $delim;
<br> }
<br>
<br> $output = $output . $input_fields[$#input_fields] . "\n";
<br> return($output);
<br>}
<br>
<br>Any help is grealy appreciated!
<br>
<br>Barney
<br>
_______________________________________________
ActivePerl mailing list
ActivePerl
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
| Prev-Msg | Prev-Thread | Activeperl | May-2008 | Next-Thread | Next-Msg |