6. perl

6.1. È­ÀÏ Àаí split Çϱâ

È­ÀÏ Àаí 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);
}