[perl] wczytywanie częsci wiersza

[mariusz198787]

Witam!

Jak wypisać część wiersza pliku (np. mamy wiersz: wer thhhnh hghg5 i chcemy z pliku wypisać wer)

[leon1313]

Oj, do łamania chrustu bierzesz piłę motorową
chociażby:

Kod: Zaznacz cały

echo "wer thhhnh hghg5 " | perl -lane '@dd=split(); print $dd[0]'

[otokan]

@leon:
Po co podajesz opcję -a jak jej nie używasz? (man perlrun)

Kod: Zaznacz cały

echo "wer adsf jdf kl" | perl -lane 'print $F[0]';

[leon1313]

@leon:
Po co podajesz opcję -a jak jej nie używasz? (man perlrun)

późno było....

[mariusz198787]

to zeby nie spamowac

Kod: Zaznacz cały

for($i=0;$i<scalar(@linie);$i++)
{
	if($linie[$i] =~/([2-9][0-9][0-9][0-9].[0-9][0-9].[0-9][0-9])/)
	{

		if(scalar(@data)==0)
		{push @data,$1;}
		else
		{
			for($i=0;$i<scalar(@data);$i++)
			{
				if($1 eq $data[$i]){}
				else{push @data,$1;}

			}
		}
	}}

ten kod odpowiada za wyszukiwanie foramtu liczb w pliku i zapisywanie ich (dane wczytywane z @linie i zapisywane do @data) chodzi o to ze to ma zapisywac do tablicy @data kolejne nie powtarzajace sie liczby jednak zapisuje wszytskie tzn. powtarzajace rowniez

[leon1313]

eeeeeee.. po elementach tablicy łatwiej się poruszać za pomocą foreach

Kod: Zaznacz cały

foerech(@tablica){
#element jest przypisany do $_
#...
#...
}

lub:

Kod: Zaznacz cały

foreach $element(@tablica){
#...
#...
}

sortowanie tablicy:

Kod: Zaznacz cały

@posortowana = sort {$b <=> $a} @nieposortowana;

Zaś co do powtórzeń:
http://piotao.math.univ.gda.pl/Perl/zad ... adania.php