Shell Programming and Scripting

#!/usr/bin/perl
while (<DATA>)
{
@A=split;
print "\nRFG {
    NAME=$A[-1]
    DG=warn
    ACCESS=
   } ";

}

__DATA__
drwxrwxrwx   1 0        0               0 Sep 19  2007 check_list_warn
drwxrwxrwx   1 0        0               0 Sep 25  2007 check_li
drwxrwxrwx   1 0        0               0 Oct 22  2007 list_check
drwxrwxrwx   1 0        0               0 Oct 25  2007 check_done
drwxrwxrwx   1 0        0               0 Feb 14  2008 check_oper

RFG {
    NAME=check_list_warn
    DG=warn
    ACCESS=
   } 
RFG {
    NAME=check_li
    DG=warn
    ACCESS=
   } 
RFG {
    NAME=list_check
    DG=warn
    ACCESS=
   } 
RFG {
    NAME=check_done
    DG=warn
    ACCESS=
   } 
RFG {
    NAME=check_oper
    DG=warn
    ACCESS=
   }

RFG {
    NAME=check_list_warn
    DG=warn
    ACCESS=
}

RFG {
    NAME=check_li
    DG=warn
    ACCESS=
}

#!/usr/bin/perl
use warnings;
my ($line,$lastfield);
open (FILE,"map_file.txt") || die "canot open file:$!";
while ($line = <FILE>)
{
 chomp ($line);
 @arr=split(/\s+/,$line);
 $lastfield=$arr[$#arr];
 print "$lastfield\n";
 print "RFG {\n\tNAME=$lastfield\n\tDG=warn\n\tACCESS=\n\t}"
}