Re:How to make it more perlish

[Jorge Goncalvez]

Hi, I have this piece of code and i wanted to simplify it and make it more 
perlish.
thanks

&cbkRedrawLink()

sub cbkRedrawLink()
{


    my $PROG="c:\\OXE\\cygwin\\bootp\\linux\\$_Globals{LX_VERSION}";
    my $PROG2="c:\\OXE\\cygwin\\bootp\\linux\\install";
    my $PROG3="c:\\OXE\\cygwin\\bootp\\linux\\linux.ram";
    my $PROG4="c:\\OXE\\cygwin\\bootp\\linux\\alize\\install";
    my $PROG5="c:\\OXE\\cygwin\\bootp\\linux\\alize\\startup.txt";

        my $link="c:\\OXE\\cygwin\\bin\\ln.exe -s  
$_Globals{CDROM}:/DHS3MGR/$_Globals{TEL_VERSION}/PCMAO/BOOT_RES/BOOTP/LINUX/$_Globals{LX_VERSION}
 $PROG";
        my $link2="c:\\OXE\\cygwin\\bin\\ln.exe -s  
$_Globals{CDROM}:/DHS3MGR/$_Globals{TEL_VERSION}/PCMAO/BOOT_RES/BOOTP/LINUX/$_Globals{LX_VERSION}/install
 $PROG2";
        my $link3="c:\\OXE\\cygwin\\bin\\ln.exe -s  
$_Globals{CDROM}:/DHS3MGR/$_Globals{TEL_VERSION}/PCMAO/BOOT_RES/BOOTP/LINUX/$_Globals{LX_VERSION}/linux.ram
 $PROG3 ";
        my $link4="c:\\OXE\\cygwin\\bin\\ln.exe -s  
$_Globals{CDROM}:/DHS3MGR/$_Globals{TEL_VERSION}/PCMAO/BOOT_RES/BOOTP/LINUX/$_Globals{LX_VERSION}/install
 $PROG4";
        my $link5="c:\\OXE\\cygwin\\bin\\cp.exe -s  
$_Globals{CDROM}:/DHS3MGR/$_Globals{TEL_VERSION}/PCMAO/BOOT_RES/BOOTP/LINUX/$_Globals{LX_VERSION}/alize/startup.txt
 $PROG5 ";
        unless (-e $PROG)
        {
                system($link) ;
        }

        unless (-e $PROG2)
        {
                system($link2) ;
        }

        unless (-e $PROG3)
        {
                system($link3) ;
        }

        unless (-e $PROG4)
        {
                system($link4) ;
        }

        unless (-e $PROG5)
        {
                system($link5) ;
        }

}
-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]