Perl. Работа с массивами. - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Вебмастеру (http://forum.oszone.net/forumdisplay.php?f=22)

- - Perl. Работа с массивами. (http://forum.oszone.net/showthread.php?t=77224)

Perl. Работа с массивами.

я написал прогамму:(она должна выводить :localhost+passwords) ,проблема с выводом

Код:

#!/usr/bin/perl -w

my$path=<STDIN>;

print "\n";





use LWP::Simple;

$INPUT_FILE = "bugs.txt";



open(INPUT_FILE);



@array = <INPUT_FILE>;



close(INPUT_FILE);



foreach(@array){$i++; }



print"starting concerting"."\n";

for($j=0;$j<$i;$j++)

 {

   

     $proverka="$path+"."$array[j]";

      print $proverka;

вывод:
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\admin>cd\

C:\>perl file1.pl
localhost

starting concerting
localhost
+passwords
C:\>

simon171078
поможет волшебная функция trim

upd. Упс. стандартной trim нет. Но зато есть регулярные выражения.

Код:

sub trim()

{

        my $s = shift;

        $s =~ s/^\s+|\s+$//g;

        return $s;

}

simon171078, прошу не плодить тем-дублей.