Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl 
use strict;
...
my @distro = $t->cmd(String => "cat /etc/redhat-release",
            cmd_remove_mode => '1');
print "@distro";
  2. or download this
    $ ./connect.pl
 $ cat /etc/redhat-release
 CentOS release 5 (Final)
  3. or download this
    my @distro = $t->cmd(String => "cat /etc/redhat-release",
            cmd_remove_mode => '2');