Program password.pl
#!/usr/local/bin/perl
#windows environment
#Read in Parameter passed
require "cgi-lib.pl";
&ReadParse (*input);
$name_status =$input{'name'}; #Read User ID from HTML form
$pass_status =$input{'pass'}; #Read User Password from HTML form
#Open Password file sand stor
#!/usr/bin/perl
$type = "u";
if ( $ARGV[0] =~ /^-([udm])$/ ) {
$type = $1;
shift @ARGV;
}
&convert(@ARGV);
sub convert {
my(@files) [EMAIL PROTECTED];
foreach my $file (@files) {
next if (not -T $file );
print "Converting file: $file\n";
unless (open(I
Friend, anybody have idea regarding this problem. Assume I want know where the word
call "fish" locate in which line number, and this word i save under file call
nlexample. Assume we already know fish save under line number 2, how we show this?
Example:nlexample
I love vegetable
I love fis
