in reply to Re^2: Remove $
in thread Remove $

I think there's something else going on. What output do you get if you place a print either side of the substitute? ie

my $cellval = $Sheet->Cells($rownum,"B")->{'Value'};
print "$cellval\n";
$cellval =~ s*\$**g;
print "$cellval\n";

[download]

Replies are listed 'Best First'.
Re^4: Remove $
by rawsr71 (Novice) on Aug 27, 2007 at 17:01 UTC
    it turns the $/ into a return

    Z:\Scripts>perl -w $.txt
    db1
    SQL/GEMINI/StoredProcs/pboValidateClientRefNo_ClientID.sql
    db1
    SQL/GEMINI/StoredProcs/pboValidateClientRefNo_ClientID.sql

    Z:\Scripts>
[reply]
      It isn't the print that's doing the interpolation of $/, it's happening inside $Sheet->Cells($rownum,"B")->{'Value'};

      In which case I'd just hack it back to what it should be with (something like) $cellval = s!\n!/!g;

[reply]
[d/l]
[select]
        DANG!! It was that simple? Pheww. Looks like my issue is solved. Thank you to everyone for all your help!
[reply]

In Section Seekers of Perl Wisdom