YourAdmin
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Товарищи! Активнее! Вывод шаблона с заменой переменных Код: print ShowTemplate("полный путь к файлу"); sub ShowTemplate { my ($fname, $ErrMsg,$Handy) = @_; my ($tmp, $data); if ($handy=='1') { $tmp = $fname; } else { open (F,"$fname") or return "(not found [$fname])"; $tmp=$/; undef $/; $data=<F>; $/=$tmp; close(F); } #А здесь начинаем менять переменные $data =~ s/\$a1/Привет/g; $data =~ s/\$a2/с/g; $data =~ s/\$a3/большого/g; $data =~ s/\$a4/бодуна/g; return $data; } | Форматирование даты Код: #В результате мы выведем Ч:М:С Д М(название) Г $time = time; $time = &longdate("$time"); print $time; sub longdate { my $time = shift; (my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) = localtime($time); my @months = ('ßíâàðÿ','Ôåâðàëÿ','Ìàðòà','Àïðåëÿ','Ìàÿ','Èþíÿ','Èþëÿ','Àâãóñòà','Ñåíòÿáðÿ','Îêòÿáðÿ','Íîÿáðÿ','Äåêàáðÿ'); $year = $year + 1900; return "$hour:$min:$sec $mday $months[$mon] $year"; } |
| Всего записей: 156 | Зарегистр. 08-12-2001 | Отправлено: 02:31 03-11-2004 | Исправлено: YourAdmin, 21:33 05-11-2004 |
|