Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- @linie = `cat cart.txt`;
- print "Dane z pliku: @linie";
- $ile = @linie;
- for($i=0; $i<$ile; $i++){
- if($linie[$i] =~ /(\S*)\s*(\S*)\s*(\S*)\s*(\S*)\s*(\S*)/){
- $1 = $nazwa[$i];
- $2 = $nr[$i];
- $3 = $x[$i];
- $4 = $y[$i];
- $5 = $z[$i];
- print "$nazwa[$i]\nNr: $nr[$i]\n x = $x[$i] y = $y[$i] z = $z[$i]\n\n";
- }
- }
- %a1 = ("$nazwa[1]", "$nr[1]" => "$x[1]", "$y[1]", "$z[1]");
- %a2 = ("$nazwa[2]", "$nr[2]" => "$x[2]", "$y[2]", "$z[2]");
- %a3 = ("$nazwa[3]", "$nr[3]" => "$x[3]", "$y[3]", "$z[3]");
- @k1 = keys %a1;
- @w1 = values %a1;
- @k2 = keys %a2;
- @w2 = values %a2;
- @k3 = keys %a3;
- @w3 = values %a3;
- print "Hasz:\nKlucze Atom1: @k1, Wartości:@w1 \n";
- print "Klucze Atom2: @k2, Wartości:@w2 \n";
- print "Klucze Atom3: @k3, Wartości:@w3 \n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement