화일 읽고 split 하기
#!/usr/bin/perl
&print_file("/etc/webmin/config");
exit;
sub print_file
{
my ($filename) = @_;
open(fh,"$filename");
while(< fh>)
{
($name,$value) = split(/=/,$_);
if( $name eq "admin_mail" )
{
print $value;
}
}
close(fh);
}
|