Re^9: INSERT file contents inside a table

Replies are listed 'Best First'.
Re^10: INSERT file contents inside a table by theravadamonk (Scribe) on Jun 07, 2018 at 11:45 UTC
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	[reply] [d/l] [select]
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]
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]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks