Search Results

$ perl test.pl
Enter a pattern: txt
A.txt
B.txt
b.txt
Characters.txt
CPU_VALUE.txt
empty.txt
FC1-original-input.txt
FC1.txt
FC2-original-input.txt
FC2.txt
input.txt
replace.txt
swap.txt...

$ cat test.pl
print "Enter a pattern: ";
$ext = <STDIN>;
@list = <*.$ext>;
foreach (@list)
{
print $_;
}

Use 'glob' function.

For help:

$ perldoc -f glob
Regards,
Birei

Hi bshell_1214,


exit 0
Regards,
Birei

Hi bshell_1214,

Try:

if ( grep { $_ eq qq[-g] } @ARGV ) {
print "Goodbye \n";
}
else {
print "Welcome to the program! \n";
}
Regards,
Birei

echo Please Enter COMMAND and FILE:
read choice choice2
if [ "$choice" = "list" ]
then
ls $choice2
fi
---------- Post updated at 05:35 AM ---------- Previous update was at 05:32 AM...