Re^11: INSERT file contents inside a table

in reply to Re^10: INSERT file contents inside a table
in thread INSERT file contents inside a table

Your additions to the regex make it unsafe because they are not terminated with $.Try

#!perl
use strict;

my @ids = qw( 
spam-IUiA-_bUe0eN.gz
badh-Xh-Vzy9BSsHN
banned-8KuHlZuzBCaA
virus-gUS5QeJ_ayqZ
virus-gUS5QeJ_ayqZ;stopme );

for my $id (@ids){
  if ($id =~ /^(?:spam|badh|banned|virus)-[a-zA-Z0-9-_.]+$/) {
    print "OK : $id\n";
  } else {
    print "ERROR : Invalid id '$id'\n";
  }
}
[download]

poj

Comment on Re^11: INSERT file contents inside a table Select or Download Code

Replies are listed 'Best First'.
Re^12: INSERT file contents inside a table by theravadamonk (Scribe) on Jun 08, 2018 at 17:17 UTC
Thanks a lot. here's the OUTput of the code `OK : spam-IUiA-_bUe0eN.gz OK : badh-Xh-Vzy9BSsHN OK : banned-8KuHlZuzBCaA OK : virus-gUS5QeJ_ayqZ ERROR : Invalid id 'virus-gUS5QeJ_ayqZ;stopme'` [download] it's OK	[reply] [d/l]

In Section Seekers of Perl Wisdom