$url_city = 'http://mapy.emiejsca.pl/molodutyn_kamien_chelmski_lubelskie,mapa.html';
$html = '
<div class="promo1" onclick="window.open(\''.$url.'\', \'\');" onmouseover="this.className=\'promo1 hover\'" onmouseout="this.className=\'promo1\'">
<p class="mce_ws_kod">echo $html;#!/usr/bin/perl
#use strict;
#use warnings;
print "Hello, World...";
$content = '<link rel="stylesheet" href="/zabytki,2,,,,informacje.html">';
$string = $content;
$string =~ s/\<link rel=\"stylesheet\" href=\"([^\"]+)\">/http:\/\/www.wolakorybutowa.pl$1/;
print $string;#!/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;
}$pass = '12345678';
if (preg_match('/^[\d]{6,8}$/', $pass)) {
echo 'ok';
}Sprawdzenie czy zmienna jest liczbą i czy ma długość od 6 do 8 cyfr
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