Kapalı

Urgent: solve issue with special variable $* in Perl 5.10

We have recently moved to a new server where Perl 5.8 is installed. Some old scripts in Perl 5.6 which use special variable $* now have problems running.

So one would have to replace the code below where $* is used

sub PrintVariables {

local (%in) = @_;

local ($old, $out, $output);

$old = $*; $* =1;

$output .= "<DL COMPACT>";

foreach $key (sort keys(%in)) {

foreach (split("\0", $in{$key})) {

($out = $_) =~ s/\n/<BR>/g;

$output .= "<DT><B>$key</B><DD><I>$out</I><BR>";

}

}

$output .= "</DL>";

$* = $old;

What is the solution for the script code above to work? Can anyone help quickly ?

I have also added the complete script for information.

Best regards

Beceriler: Perl

Daha fazlasını görün: 5 below, perl used, solve some, dt, server issue, urgent solution, perl split, help solve, 2010 split, perl output, code variable, special, urgent help, perl code, replace perl, perl variable included file, code perl, perl variable file, running perl scripts, perl replace script, code keys, perl include variable configsimple, script urgent, perl replace, perl timeout issue win32

İşveren Hakkında:
( 0 değerlendirme ) Zürich, Switzerland

Proje NO: #691758

7 freelancer bu iş için ortalamada 37$ teklif veriyor

cuco

Hi !!! I use Perl every day. The script looks very old. I can help you !!!

in 2 gün içinde30$ USD
(14 Değerlendirme)
4.3
PrimeMindsLogics

Please check PM.

in 2 gün içinde30$ USD
(6 Değerlendirme)
1.0
Ozarka

Please see pm

in 0 gün içinde60$ USD
(0 Değerlendirme)
0.0
UnixmanEndur

I love Perl that's why it can be done..

in 2 gün içinde50$ USD
(0 Değerlendirme)
0.0
mezoneq

I know the answer, I'm able to help imediatelly

1 gün içinde 30$ USD
(0 Değerlendirme)
2.0
libvenus

This is pretty trivial. Please check PM for details.

1 gün içinde 30$ USD
(0 Değerlendirme)
0.0
climby

Post solution to your inbox

in 0 gün içinde30$ USD
(0 Değerlendirme)
0.0