All I am getting the error from my if statement:

^* matches null string many times in regex; marked by <-- HERE in m/^* <-- 
HERE Orig/ at .

I am trying to get everything except *Orig in this output :

*Orig Vol: 1703FBBDED58D4AD (E00117), Seq #: 000114 in TLU: st_9840_acs_0, 
media: STK 984e
 Orig Vol: 0303E68522777483 (E00486), Seq #: 000800 in TLU: st_9840_acs_0, 
media: STK 984e

07/12/2004 18:13:17 Rotation ID:4A03CC27.A30DEE72.00000200.0E0B8707, 5 
backups
     Media duplication is not enabled.

*Orig Vol: 4A03CC27A30DEE72 (E00632), Seq #: 000273 in TLU: st_9840_acs_0, 
media: STK 984e

Here is my code:
 
        foreach ($EDM_nonactive_tapelist) {
        if ($EDM_nonactive_tapelist !~ "\^\*Orig") {
                        print $_;
                }
}

*NOTE the variable $EDM_nonactive_tapelist has the Orig strings in it.
Does foreach read line by line?
Do I even need the foreach statement?

thank you!

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams

Reply via email to