#!/usr/bin/perl open FILE, "<plik_haslo.txt";
while (my $line = <FILE>) { #print $line;
if ($line =~ /^haslo/) { if ($line =~ /^haslo = \" \"/) { $ustawione = 0; } else { $ustawione = 1; } } }
print $ustawione;plik:
lp = 12
haslo = " "
wiz = 0
typ = 2
#!/usr/bin/perl -w
use strict;
use XML::Simple;
use Data::Dumper;
my $data = XMLin('nokaut.xml');
print Dumper($data);#!/usr/bin/perl
#use strict;
#use warnings;
print "Hello, World...";
$content = '<link rel="stylesheet" href="/pogoda.091005.css">';
if($content =~ /^\<link rel=\"stylesheet\" href=\"\/(.+)\"/) {
$styl_link = $1;
print $styl_link;
}Jeśli w perlu za pomocą use DBD::ODBC; robimy update rekordu czy insert z polskimi znakami powiedzmy "ł" do bazy dodaje się zamiast litery "ł" znak "?".
Problem można ten obejść za pomocą sprytnego polecenia mysql "_latin2" które wstawiamy przed wstawianym stringiem.
Przykład poniżej:
UPDATE klient
SET
branza = _latin2 'Gumowe artykuły|33241|2399'
WHERE
idrek = 177221312#!/usr/bin/perl -w
$zmienna = "mapa,";
$temp = substr($zmienna, 0, length($zmienna)-1);
print "Polska $temp";