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

yeah, U r right.below code is OK. it's what I mean. But, I need YES and NO option after clicking for safety purpose. Anyway, It's my NEXT TASK.

<td><a href=/cgi-bin/release.pl?release=$id>$id</a></td>

[download]

My IDs r in below formats

spam-IUiA-_bUe0eN.gz

badh-Xh-Vzy9BSsHN

banned-8KuHlZuzBCaA

virus-gUS5QeJ_ayqZ

So, I had to changed the below code. It has UNDERSCORE as well

if ($id =~ /^spam-[a-zA-Z0-9-]+\.gz$/) {

[download]
to 
if ($id =~ /^spam-[a-zA-Z0-9-_]+\.gz$|^badh-[a-zA-Z0-9-_]+|^banned-[a-
+zA-Z0-9-_]+|^virus-[a-zA-Z0-9-_]+/) {

[download]
also changed 
my $cmd = "sudo /usr/bin/amavisd-release $id 2";
<code>

to

<code>
my $cmd = "sudo /usr/bin/amavisd-release $id";

[download]

Now, code WORKS well. Many thanks once again. UNLESS u helped me, I may NOT achive what I expect. hope to hear from you

Replies are listed 'Best First'.
Re^11: INSERT file contents inside a table
by poj (Abbot) on Jun 07, 2018 at 12:27 UTC

    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
[reply]
[d/l]
[select]

      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