PERL - dodawanie

[kokosoko]

Dziś zacząłem się uczyć, jak programować w perlu.
No i już sporo przejrzałem kursów, ale nie znalazłem z nim niektórych rzeczy.
A mianowicie:
Napisałem program, który dodaje 2 liczby całkowite, ale wpisać je trzeba po enterze; chciałbym, żeby liczby były wpisywane po spacji.
Oto program:
#!/usr/bin/perl

use warnings;

$a = <STDIN>;
$b = <STDIN>;
$c = $a + $b;

print "$c\n";

exit;

No i oto, jak działa:
Input:
2
3
Output:
5
A tak chcę, żeby działał:
Input:
2 3
Output:
5

Byłbym wdzięczny za pomoc, bo chyba nie jest to trudne (chociaż próbowałem na kilka sposobów), a jest to podstawa.

[GSG-9]

regexy

#!/usr/bin/perl -w
use strict;
my $wynik;
chomp (my $a = <STDIN>) ;
if ($a =~ m/(.{1}).(.{1})/) {  $wynik = $1 + $2; }
print "wynik to $wynik\n";

[TQM]

Ja bym raczej nie robil takiego regexa... bo jest bardzo niedokladny:
- lapie liczby jednocyfrowe
- niekoniecznie lapie cyfry... lapie cokolwiek w sumie - litery, itd...
- odstep moze byc nie spacja ale czymkolwiek

Moj regex:

$a =~ /(\d+)\s+(\d+)/;

taki regex ma wiekszy sens

[GSG-9]

wiem zauwazylem to pozniej... wiesz ze regexy ciezko mi przychodza

[kokosoko]

Moj regex:

$a =~ /(\d+)\s+(\d+)/;

A mógłbym prosić o wyjaśnienie tego kodu? Bo dla początkującego, to wygląda kosmicznie, że się tak wyrażę. (nawet nie wiem, co to jest regex)

[TQM]

W tym dziale na forum prowadzilem kurs podstaw perl'a - regexy tez byly omawiane o ile pamietam... a jesli nie to omowie. Ten kurs to byly calkowite podstawy omawiajace rodzaje zmiennych, podstawowe bloki logiczne itd.

[kokosoko]

Udało mi się (z waszą pomocą - dziękuję!).
Oto kod, gdyby ktoś też miał taki problem:

#!/usr/bin/perl
use strict;
my $tekst = <STDIN>;
my $x;
$tekst =~ /(\d+)\s+(\d+)$/;
$x = $1 + $2;
print "$x\n";

Zastanawiam się jednak, jakby zrobić, żeby program dodawał liczby rzeczywiste.
Bo \d - to liczba, ale całkowita i nie da się wstawić liczby rzeczywistej.

Oto program, który dodaje 2 liczby o zaokrąla je do 2 cyfry po przecinku (jednak ten program niestety nie działa, bo wyświetla zawsze: 0.00):
#!/usr/bin/perl
use strict;
my $tekst = <STDIN>;
my $x;
$tekst =~ /(\d+)\s+(\d+)$/;
$x = $1 + $2;
$x=sprintf "%.2f",$x;
print "$x\n";

Wie ktoś może, jak zrobić by uznawał też liczby rzeczywiste?

[Leidrax]

#!/usr/bin/perl
use strict;
my $tekst = <STDIN>;
my $x;
$tekst =~ /(.*) (.*)/;
$x = $1 + $2;
$x=sprintf "%.2f",$x;
print "$x\n";

[TQM]

hmmmm prawie... regex zlapie np "zupa 123456" i jak to teraz ma dodac i zaokraglic do 2 po przecinku?

raczej cos w ten sposob:

$a =~ /(\d+(\.\d+)?)\s+(\d+(\.\d+)?)/;

a teraz tlumaczac na nasze...
- jedna lub wiecej cyfr
- zero lub jeden ciag ".cyfry"
- to co znalezione zapamietaj w zmiennej
- jeden lub wiecej znakow bialych (spacja, tabulacja)
- to samo dopasowaine co na poczatku

dla upartego mozna jeszcze dodac ^ i $ aby zaznaczyc twardo poczatek i koniec linii ale wtedy regex nie zadziala jesli ktos przypadkiem walnie spacje albo jakas litere na poczatku linii :P

Na upartego mozna regex zmienic na:

$a =~ /(\d+(\.\d+)?)\D+(\d+(\.\d+)?)/;

a wtedy z tekstu "sadk4.53a c2sa" powinien wyciagnac 4.53 i 2 ignorujac reszte Perl power!

[Leidrax]

Byłem zdecydowanie nastawiony na uzycie tylko liczb ;p