Тема: Примитивні запитання з мови Perl
Я хочу усі повідомлення перл з консолі переводити в текстовий документ.
Мене трохи нудить щоб ото переписуватти руками английську, щоб запитати у форумі або щоб сунути
оту фразу в пошуковик гуглу. Тим більш, що надалі я це можливо робитиму сотні разів.
Так от я в FAR-і відкриваю бат файл і потім запускаю його.
Загальна мета, ціль, ознайомитися з можливостями перл нормально, так що ви мене, якщо ж я все-таки що те
роблю правою рукою та через ліве вухо, поправте мене теж.
Reguljar2.cgi
#!/usr/bin/perl -w
use utf8; # говорит Perl что код нашей программа написан в кодировке utf8.
use open qw(:std :utf8); # говорит Perl что все потоки STDIN, STDOUT, STDERR должны работать с utf8.
use warnings;
sleep(10);
my $string = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя";
print "'" . utf8::is_utf8($string) . "'" . "\n";
print length($string) . "\n";
print $string . "\n";
print uc($string) . "\n";
sleep(10);
print "A zaraz Perl vidkrye fail\n";
my $filename = 'отчет.txt';
open(my $fh, '>', $filename) or die "Ne moju vidkryty '$filename' $!"; # знак "більше" (>) означає що файл відкривається для запису.
print $fh "Ze perl\n";
close $fh;
print "Gotovo\n";
sleep(10);
$Zmina_naprjamku=select($fh); #изменить направление вывода
$name='new14.txt';$param=0666;
sysopen($Handle_new14,$name, O_RDWR|O_CREAT , $param);
sysopen(PASSWD, "passwd", O_WRONLY|O_TRUNC|O_CREATE);
$Zmina_naprjamku=select($Handle_new14); #изменить направление вывода
print "В маєтку гетьмана Івана Сулими,
В сучасному селі, що зветься Сулимівка,
До кінських грив припадені грудьми,
Промчали хлопці – загула бруківка –
І тільки гриви…курява…і свист…
Лунких копит оддаленілий цокіт…
І ми…і степ…і жовтий падолист…
І цих дворів передвечірній клопіт…
І як за сонцем повертає сонях,
Так довго вслід чомусь дивились ми.
А що такого? Підлітки на конях…
В маєтку гетьмана… Івана Сулими…";
select($Zmina_naprjamku); #поставити на місце изменить направление вывода
select($fh); #поставити на місце изменить направление вывода
sleep(15);
if ($reply =~ m/
^[0-9]+$
/) {
print "only digits\n";
} else {
print "not only digits\n";
}
sleep(15);
#my $Filename = 'корректная_директория_с_опечаткой/отчет.txt';
#open(my $Filehandle, '>', $Filename) or die "Не могу открыть файл '$Filename' $!";
sleep(15);Perl_Bat_4.BAT
C:\Strawberry_Perl\perl\bin\perl C:\PPPP\Reguljar2.cgi Приєдную до теми редагувач FAR
Нотепад я причіплюю до цієї теми. Для того що б засвітити код в саме моєму файлі, необхідно вибрати у ньому Синтаксисы- P - Perl.
Попередження! Цю помилку має бути виправлено перед відправленням повідомлення:
Вибраний файл був завеликий для завантаження. Сервер не дозволив завантаження.
