Bawię się ;)
Zainspirowany serwisem Kiedy Będzie Wielkanoc by Marcin Kaszyński, zrobiłem sobie bardziej ogólną zabawkę ;) Moja wersja pokazuje najbliższy dzień wolny – uwzględnia weekendy i święta (według listy z Wikipedii) :) Jeśli ktoś chce, to może kliknięciem sobie wyłączyć wyliczanie dla sobót i/lub niedziel (prawy górny róg), ale nie jest to na razie zapamiętywane (będzie pewnie w ciachu). I tyle ;)
Dostępne pod: ZaIleWolne.pl – enjoy! ;)
Dawno tu nie pisałem… No cóż, (bardzo) dużo pracy, życie osobiste i takie tam – to odstrasza od blogowania ;) Jeśli już, to od czasu do czasu coś publikuję jeśli chodzi o zdjęcia, a sprawy “kodowe” to raczej “robię” niż o nich piszę :)
Jako że od kilka dni jestem na L4, to się ostro opierdzielam, ale dopiero dziś jestem w stanie podjąć jakikolwiek intelektualny wysiłek… No to popatrzyłem sobie m.in. na GoldenLine. Dziś na forum PHPowym ktoś poruszył dość banalny problem, ktoś inny podrzucił rozwiązanie (preg_replace_callback (), a ja zacząłem się zastanawiać czemu wszyscy w PHP tak napierają na regexpy (rozumiem w Perlu, ale PHP?). Jak zacząłem się zastanawiać jak to zrobić bez regexpów, to zacząłem się bawić w zakodowanie tego ;)
Najpierw zrobiłem dość banalną wersję, przy użyciu strlen (), strpos () i substr (), i chciałem ją podać jako wersję hardcore ;) Wtedy pomyślałem sobie, że prawdziwa wersja hardcore, to byłaby bez użycia tychże funkcji… najprostsza postać tego to zastąpienie tychże funkcji swoimi ;) I o ile substr () i strpos () są dość banalne, o tyle dla mnie prawdziwym hardcorem jest strlen () ;)
Oczywiście nie są to najbardziej optymalne wydajne rozwiązania (a jeśli są to tylko przypadkiem), bo jeśli chodzi o optymalizację, to trzeba by używać wersji natywnych to trzeba by się najpierw zastanowić i sprawdzić czy jest co optymalizować… :) A całość warto potraktować stricte jako zabawę, którą dla mnie było pisanie tego :)
W całym “problemie” chodziło o zastąpienie w tekście wystąpień “[userId]ID[/userId]” tym, co zostanie wyplute przez dodatkową funkcję której podajemy zawartość tego co jest między znacznikami. Użycie preg_replace_callback () jest chyba najbardziej intuicyjnym rozwiązaniem, ale nie jedynym… :) Poniżej obydwie wersje: hardcore i bardziej hardcore – enjoy ;)
function replace_user_id ($str, $fn) {
$tags = array ('start' => '[userId]', 'end' => '[/userId]');
$tag_len = array (
'start' => strlen ($tags['start']),
'end' => strlen ($tags['end'])
);
$offset = $pos_end = 0;
$ret = '';
$strlen = strlen ($str);
while ($pos_end < $strlen) {
if (
($pos_start = strpos ($str, $tags['start'], $pos_end)) !== false &&
($pos_end = strpos ($str, $tags['end'], $pos_start)) !== false
) {
$ret .= substr ($str, $offset, $pos_start - $offset);
$pos_start += $tag_len['start'];
$ret .= $fn (substr ($str, $pos_start, $pos_end - $pos_start));
$pos_end += $tag_len['end'];
$offset = $pos_end;
}
else {
break;
}
}
return $ret;
}class __mstrlen__ErrH {
private static $error = false;
private function __construct () {}
static public function errh ($errno, $errstr, $errfile = '', $errline = 0, $errctx = array ()) {
if ($errno != E_NOTICE) {
return false;
}
$expected = 'Uninitialized string offset';
for ($i=0; $i<26; ++$i) {
if ($expected[$i] != $errstr[$i]) {
return false;
}
}
self::$error = true;
}
public static function isError () {
return self::$error;
}
public static function zero () {
self::$error = false;
}
}
function mstrlen ($str) {
$str = (string) $str;
$len = -1;
__mstrlen__ErrH::zero ();
set_error_handler (array ('__mstrlen__ErrH', 'errh'), E_NOTICE);
while (__mstrlen__ErrH::isError () === false) {
++$len;
$q = $str[$len];
}
restore_error_handler ();
return $len < 0 ? 0 : $len;
}
function mstrpos ($str, $seek, $offset=0) {
if (!is_int ($offset) || $offset < 0) {
$offset = 0;
}
$str_len = mstrlen ($str);
if ($offset > $str_len) {
return false;
}
$seek_len = mstrlen ($seek);
for ($i=$offset; $i < $str_len; ++$i) {
for ($j=0; $j < $seek_len; ++$j) {
if ($str[$i + $j] != $seek[$j]) {
break;
}
}
if ($j == $seek_len) {
return $i;
}
}
return false;
}
function msubstr ($str, $start, $length = null) {
$str_len = mstrlen ($str);
if (!is_int ($start)) {
trigger_error ('Incorrect offset');
}
else if ($start >= $str_len) {
return false;
}
else if ($start < 0) {
$start = $str_len + $start;
}
if (!is_int ($length)) {
$length = $str_len - $start;
}
else if ($length < 0) {
$length = $str_len + $length - $start;
}
else if ($length + $start > $str_len) {
$length = $str_len - $start;
}
$ret = '';
for ($i=0; $i < $length; ++$i) {
$ret .= $str[$i + $start];
}
return $ret;
}
function replace_user_id2 ($str, $fn) {
$tags = array ('start' => '[userId]', 'end' => '[/userId]');
$tag_len = array (
'start' => mstrlen ($tags['start']),
'end' => mstrlen ($tags['end'])
);
$offset = $pos_end = 0;
$ret = '';
$strlen = mstrlen ($str);
while ($pos_end < $strlen) {
if (
($pos_start = mstrpos ($str, $tags['start'], $pos_end)) !== false &&
($pos_end = mstrpos ($str, $tags['end'], $pos_start)) !== false
) {
$ret .= msubstr ($str, $offset, $pos_start - $offset);
$pos_start += $tag_len['start'];
$ret .= $fn (msubstr ($str, $pos_start, $pos_end - $pos_start));
$pos_end += $tag_len['end'];
$offset = $pos_end;
}
else {
break;
}
}
return $ret;
}Słyszeliście historyjkę, jak to kot wskoczył na klawiaturę, wklepując losowe znaki, a Larry stwierdził że to musi dać “Hello world” ? Znalazł się spec który odtworzył ten ciąg znaków:
perl -e 's^^i6(!@*^+s;\*; Wo\$_\;~;.s![(_\!]!l!g+y"i\$@"Hro"+tr-6;~-ed\012-;print'Ja leżę i kwiczę :)
Źródło: goldenline.pl/forum/perl/127239
RAFi :: 18:01:23 (28.11.2005) / S 18:01:22 (28.11.2005)
proponowalbym jeszcze dwie poprawki :P
RAFi :: 18:01:29 (28.11.2005) / S 18:01:29 (28.11.2005)
albo 3 :)
MySZ :: 18:01:31 (28.11.2005)
no ?
RAFi :: 18:02:09 (28.11.2005) / S 18:02:08 (28.11.2005)
- onfocus=”blur()” dla linkow
- target _blank dla linków
- trochę na wysokość powiększyć selekta, bo jakiś kulawy się wydaje
MySZ :: 18:02:36 (28.11.2005)
onfocus: sprzeciw
target _blank: sprzeciw
MySZ :: 18:02:41 (28.11.2005)
select zaraz
RAFi :: 18:02:43 (28.11.2005) / S 18:02:42 (28.11.2005)
lol
MySZ :: 18:02:47 (28.11.2005)
co lol ?
MySZ :: 18:02:52 (28.11.2005)
pomysl nieco o dostepnosci
RAFi :: 18:02:54 (28.11.2005) / S 18:02:53 (28.11.2005)
lol sprzeciw
RAFi :: 18:02:57 (28.11.2005) / S 18:02:55 (28.11.2005)
brzydko wygląda ta ramka
RAFi :: 18:03:04 (28.11.2005) / S 18:03:03 (28.11.2005)
wokół przycisków graficznych
MySZ :: 18:03:09 (28.11.2005)
focus jest po to, zeby pracujac na klawiaturce, widac bylo ktory link chce wybrac enterem
RAFi :: 18:03:09 (28.11.2005) / S 18:03:09 (28.11.2005)
wręcz szpetnie :)
MySZ :: 18:03:19 (28.11.2005)
nie zawsze chce klikac, i bardzo czesto robie to za pomoca klawiatury
RAFi :: 18:03:35 (28.11.2005) / S 18:03:34 (28.11.2005)
kto pracuje na klawce? :>
MySZ :: 18:03:39 (28.11.2005)
jak wywalisz ta ramke (‘mrowki’) to nie bede mial jak
MySZ :: 18:03:41 (28.11.2005)
ja
MySZ :: 18:03:43 (28.11.2005)
chociazby
RAFi :: 18:03:47 (28.11.2005) / S 18:03:46 (28.11.2005)
dobra, to tylko selekta popraw
MySZ :: 18:03:48 (28.11.2005)
i sporo innych osob
MySZ :: 18:04:13 (28.11.2005)
target blank: jak bede chcial otworzyc w osobnym oknie linka, to klikne srodkowym przyciskiem myszy, a w ie – razem z shiftem
RAFi spasował… ;)
