my $row = $feed_db->fetchrow_array() ; my @words = split (/_/, $row); foreach(@words) { if(/feed*/) { $test="$_"; } } print("$test\n");
In reply to Re^2: perl system command
by cbtshare
in thread perl system command
by cbtshare
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |