Re:A more perlish way

[Jorge Goncalvez]

Hi, I have this :
my $program_path = "c:\\cygwin\\bootp\\linux";
        my $Symlink="$program_path\\install.lnk";
        my $Symlink2="$program_path\\linux.ram.lnk";
        my $Symlink3="$program_path\\alize\\install.lnk";
        my $Symlink4="$program_path\\alize\\startup.txt.lnk";
        
if (-e $Symlink)
{
        system "rm $Symlink";
 }

if (-e $Symlink2)
{
        system "rm $Symlink2";
 }


if (-e $Symlink3)
{
        system "rm $Symlink3";
 }


if (-e $Symlink4)
{
        system "rm $Symlink4";
 }
 
 
 I tried this:
  @Symlink=("$program_path\\install.lnk",
                         "$program_path\\linux.ram.lnk",
                         "$program_path\\alize\\install.lnk",
                         "$program_path\\alize\\startup.txt.lnk");

  foreach (@Symlink)
  {
                if (-e $_)
                {

                        system "rm $_";

                }
   }
   
  but it seems not to work?Why?
  
  Thanks.       


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