PERL - dodawanie

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.

regexy

Kod:

---

#!/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";

---

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:

Kod:

---

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

---

taki regex ma wiekszy sens :)

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

Cytat:

---

Napisał TQM

Moj regex:

Kod:

---

$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)

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.

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?

Kod:

---

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

---

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

raczej cos w ten sposob:

Kod:

---

$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:

Kod:

---

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

---

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

Byłem zdecydowanie nastawiony na uzycie tylko liczb ;p

$a =~ /^[+-]?\d+(\.\d*)?([eE][+-]?\d+)?$/; ? lol

$liczba=int($liczba+0.5); - Do czesci calkowitej
$liczba=sprintf "%.2f",$liczba; - Do 2 miejsc
$liczba=int($liczba); - Po przecinku

Jak byś chciał po równej odległośći użyj printf-a...

Dopapraj tez

log10(x) = log (x) / log (10) - naturalnie albo polepszyc se w takowy sposób

length(int($x)) ewentualnie

length(sprintf "%.0f", $x) - Good idea dla duzych liczb ;>

Byle byś nie polepszal poza przedziałem 0,1 i zapisem typu 1e13):

Niestety oba podane regexy nie działają - wynikiem zawsze jest 0.00.

Cytat:

---

Napisał Mandr4ke

$a =~ /^[+-]?\d+(\.\d*)?([eE][+-]?\d+)?$/; ? lol

$liczba=int($liczba+0.5); - Do czesci calkowitej
$liczba=sprintf "%.2f",$liczba; - Do 2 miejsc
$liczba=int($liczba); - Po przecinku

Jak byś chciał po równej odległośći użyj printf-a...

Dopapraj tez

log10(x) = log (x) / log (10) - naturalnie albo polepszyc se w takowy sposób

length(int($x)) ewentualnie

length(sprintf "%.0f", $x) - Good idea dla duzych liczb ;>

Byle byś nie polepszal poza przedziałem 0,1 i zapisem typu 1e13):

---

-nie rozumiem tego regexa: $a =~ /^[+-]?\d+(\.\d*)?([eE][+-]?\d+)?$/;
-nie miałem logarytmów, więc nie wiem, co da: log10(x) = log (x) / log (10)
-co robi to: length(int($x)) ?
-co robi to: length(sprintf "%.0f", $x) ?
-i nie kumam tego: [Byle byś nie polepszal poza przedziałem 0,1 i zapisem typu 1e13 (domyślam się, że jest to szesnastkowy system liczbowy, ale wtedy o co kaman z liczbą 7699)?

Już myślałem, że Perl jest fajny, bo ma sporo opcji, a tu się okazuje, że trudno napisać w nim program na dodawanie liczb rzeczywistych. :/

Edit: $a =~ /^[+-]?\d+(\.\d*)?([eE][+-]?\d+)?$/; - ten regex też daje 0.00. ;/

Edit2: Jednak działają te regexy. Popróbowałem kilka razy i znalazłem błąd (u siebie, nie u Was). Aż wstyd mówić, gdzie się pomyliłem. -.-

To ja moze wyjasnie dla potomnych :)

Kod:

---

/^[+-]?\d+(\.\d*)?([eE][+-]?\d+)?$/;

---

rozbijajac na czesci

^ - poczatek ciagu
[+-]? - zero lub jeden znakow z dwuznakowej grupy (czyli jeden z tych lub nic)
\d+ - jedna lub wiecej cyfr
(\.\d*)? - zero lub jeden ciag '.nnnn' gdzie nnn to cyfry (zero lub wiecej) - w sumie mogloby byc \d+ zamiast \d* moim zdaniem
([eE][+-]?\d+)? - zero lub jeden ciag skladajacy sie z litery 'e' duzej lub malej, zero lub jednego znaku z dwuznakowej grupy, jednej lub wiecej cyfr... a calosc tego wyrazenia wystepujaca zero lub jeden raz
$ - koniec ciagu

Swoja droga to zastanawiam sie czy koncowka nie powinna byc rozudowana o:

Kod:

---

(([eE][+-])?\d+)?

---

bo jesli jest 'e' to musi byc +- dalej...