Hello Monks! This snippet of a larger cgi script that removes a table entry in it's last phase. I first attempted doing this using a while loop inside the flock mechanizm. I read in the camel book (page 154)s///, arrays and while loops dont mix well. But it still looks......well doable.........

The value of $RTBL_ENTRY_DEL is:'g2222222|mvs+VSPMVSPNODE'

s/$RTBL_ENTRY_DEL//;

But only the g2222222 is removed leaving the "|MVS+VSPMVSPNODE". I tri
+ed negation of the pipe in the same sustitution line with no success.
[download]

So I tried something totaly different.....

#!/usr/local/bin/perl -w                                              
+          
use strict;                                                           
+          
use Fcntl qw(:flock);                                                 
+          
#--------------------                                                 
+          
my $CE_PMID = 'g2222222' ;                                            
+  
my $RTBL_CD_NODE_CONST = '|mvs+VSPMVSPNODE' ;                         
+          
my $CE_ROUTE_TABLE = "/edi/cdunix/ndm/bin/Rout.Tbl";                  
+         my $RTBL_ENTRY_DEL = $CE_PMID . $RTBL_CD_NODE_CONST;        
+                    
#--------------------                          
if ( $CE_PMID =~ /g*/ ) {                                             
+        
open(CE_RTBL, "<$CE_ROUTE_TABLE") || die "Couldnt read from routing ta
+ble: $!"; 
my @RTBL_Array = <CE_RTBL>;                                           
+      
close(CE_RTBL) || die " Couldnt close file: $!";                      
+          
my @RTBL_Match = grep { /$RTBL_ENTRY_DEL/ } @RTBL_Array;              
+          
                 
  if ( @RTBL_Match ) {                                                
+          
  print "It matched!!!\n";                                            
+          
  open(CE_RTBL,"+<$CE_ROUTE_TABLE");                                fl
+ock(CE_RTBL, 2) or die "Can't file lock $CE_ROUTE_TABLE: $!";        
+       
  print "Inside flock:$RTBL_ENTRY_DEL\n";                             
+        for (@RTBL_Array) {s/$RTBL_ENTRY_DEL//g};                    
+                 
  close (CE_RTBL)                  || die "Can't close $CE_ROUTE_TABLE
+: $!";    
  } #End of if                                                        
+  } #End of if
[download]

It didn't work either...... Here's the table that I'm attempting to remove an entry from each has a new line terminator:

o2130338|mvs+VSPMVSPNODE
g2139819|mvs+VSPMVSPNODE
g2113717|mvs+VSPMVSPNODE
o2156228|mvs+VSPMVSPNODE
o2170511|mvs+VSPMVSPNODE
o2174150|mvs+VSPMVSPNODE
o2194340|mvs+VSPMVSPNODE
o4199702|mvs+VSPMVSPNODE
g2345678|mvs+VSPMVSPNODE
g2222222|mvs+VSPMVSPNODE
[download]

If anyone would be kind enough to point me in the right direction I'd be very greatful.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.