Satya Devarakonda wrote:
>
> Can somebody tell what is wrong with this.
>
> I tried single quote (') in place of double quote(") neither of them work.
>
> for ($i = 0; $i < @clm_types; $i++)
> {
> @temp_str = grep (/$_/,@env_desc);
What are you trying to grep here? What you have is the same as:
@temp_str = grep( $_ =~ /$_/, @env_desc );
Which will only fail if there are certain characters or regular
expressions in $_.
> @fields = split (/,/,$temp_str[@temp_str - 1],4);
^^^^^^^^^^^^^^^
@fields = split (/,/,$temp_str[ -1 ],4);
> $env_final[$i] = join (/","/,$fields[1],$fields[2],@temp_str - 1);
/","/ should be a string not a regular expression. Change it to '","'
or q/","/. @temp_str - 1 could also be written as $#temp_str and the
two array elements could be replaced with an array slice.
$env_final[$i] = join q/","/, @fields[1,2], $#temp_str;
> }
>
> /","/ should probably be written as "","" at loadstats1.pl line 188.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
