fork download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use CGI;
  5.  
  6. # Utworzenie obiektu CGI
  7. my $cgi = CGI->new;
  8.  
  9. # Pobranie parametrów z linii adresu
  10. my @numbers = $cgi->param('numbers') ? split(/\+/, $cgi->param('numbers')) : ();
  11.  
  12. # Jeżeli parametry zostały podane
  13. if (@numbers) {
  14.     # Zamiana wszystkich parametrów na liczby całkowite
  15.     @numbers = map { int($_) } @numbers;
  16.  
  17.     # Znalezienie największej liczby
  18.     my $max = (sort { $b <=> $a } @numbers)[0];
  19.  
  20.     # Wyświetlenie wyniku
  21.     print $cgi->header;
  22.     print "<html><body>";
  23.     print "<h1>Największa liczba to: $max</h1>";
  24.     print "</body></html>";
  25. } else {
  26.     # Jeśli nie podano żadnych parametrów
  27.     print $cgi->header;
  28.     print "<html><body>";
  29.     print "<h1>Brak parametrów wejściowych.</h1>";
  30.     print "</body></html>";
  31. }
  32.  
Success #stdin #stdout 0.04s 9156KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Content-Type: text/html; charset=ISO-8859-1

<html><body><h1>Brak parametrów wejściowych.</h1></body></html>
https://ideone.com/6K9iRp
language:
Perl (perl 5.28.1)
created:
26 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!