- 1
- 2
- 3
open(my $fh, '<', $file);
my @lines = split "\n", do { local $/ = undef; <$fh> };
close($fh);-
Perl / Говнокод #18761
−46
Безсмысленная безпощадность. Кто знает, что такое slurp a file в Perl, тот поймёт. Для остальных -- спойлер ниже.
my @lines = <$fh>;Запостил:
Elvenfighter,
25 Сентября 2015
Follow us!
Хотел когда-то оформить это отдельным говнокодом
> IO::Handle->input_record_separator( EXPR )
> $INPUT_RECORD_SEPARATOR
> $RS
> $/
> The input record separator, newline by default. This influences Perl's idea of what a "line" is. Works like awk's RS variable, including treating empty lines as a terminator if set to the null string (an empty line cannot contain any spaces or tabs). You may set it to a multi-character string to match a multi-character terminator, or to undef to read through the end of file. Setting it to "\n\n" means something slightly different than setting to "" , if the file contains consecutive empty lines. Setting to "" will treat two or more consecutive empty lines as a single empty line. Setting to "\n\n" will blindly assume that the next input character belongs to the next paragraph, even if it's a newline.
Отакот.
Блядь, так это говно еще и официально! Кто теперь скажет что перл хороший а в говнокоде виноваты программисты?
Это чему-то противоречит?
Гы-гы. sed, сёма, sed забыл. Хотя пёрл круче, не спорю.
После них perl читабельный и няшный...
А после пёрла ПИТОН няшный и читабельный
что делает autofuck - отдельный ужас.
вот ЭТО звиздец
Ну это уже клиника.
Ответ один - в некоторых кейсах писать меньше (за счёт проигрыша во всех остальных, но всем похуй).
А как привязанность к никсам должна привязывать к перлу?