fork download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use CGI;
  5.  
  6. # Tworzenie obiektu CGI
  7. my $query = CGI->new;
  8.  
  9. # Pobranie danych z formularza
  10. my $imie = $query->param('imie') || '';
  11. my $nazwisko = $query->param('nazwisko') || '';
  12. my $wiek = $query->param('wiek') || '';
  13. my $plec = $query->param('plec') || '';
  14.  
  15. print "Content-type: text/html\n\n";
  16.  
  17. if ($imie && $nazwisko && $wiek && $plec) {
  18.     # Zapis do pliku
  19.     open my $fh, '>>', '/path/to/data.txt' or die "Nie można otworzyć pliku: $!";
  20.     print $fh "$imie:$nazwisko:$wiek:$plec\n";
  21.     close $fh;
  22.  
  23.     print "<html><body><p>Dane zostały zapisane. Dziękujemy!</p></body></html>";
  24. } else {
  25.     print "<html><body><p>Błąd: Wypełnij wszystkie pola.</p></body></html>";
  26. }
  27.  
Success #stdin #stdout 0.04s 9252KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Content-type: text/html

<html><body><p>Błąd: Wypełnij wszystkie pola.</p></body></html>
https://ideone.com/so3jsr
language:
Perl (perl 5.28.1)
created:
23 hours 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!