Помогите пожалуйста с perl

0

2

Не давно начал изучать perl, в общем застрял на таком моменте. Есть файл с какими то данными, нужно написать скрипт который выводил бы строки содержащие символ «=» из данного файла.

Ссылка

← Условие которое не должно выполняться

Как реализовать «подписку на поисковый запрос»? →

Самый быстрый способ — perl -e '`grep = filename`' :)
А вообще с домашкой — это в Job.

~~redgremlin~~ ★★★★★
(13.09.16 13:21:18 MSK)

% cat /tmp/file 
asd
3242=244
safsdf
cxv
2sdsf=32dsf
dsf
% perl -nle 'print if /=/' /tmp/file
3242=244
2sdsf=32dsf
%

anonymous
(13.09.16 13:32:48 MSK)

Ссылка

my $file = ''; # вместо пустой строки поставь путь к файлу

open my $fh, '<', $file or die $!;
while (my $line = <$fh>) {
    if ($line =~ m{=}x) {
        print $line;
    }
}
close $fh;

outtaspace ★★★
(13.09.16 13:42:08 MSK)

Ответ на: комментарий от redgremlin 13.09.16 13:21:18 MSK

давайте начну по порядку. Первое задание было нужно выделить строки и вывести не пустые строки, 2. вывести незакоментированые строки. 3. используя регулярное выражение выделить строки содержащие символ =, поместить в хэш и из хэша отправить в другой файл

пример кода

#!/usr/bin/perl -w use strict; use FindBin; my $base_dir = «$FindBin::Bin»; my $file_name = «$base_dir/source.dat»; open(SRC, «< $file_name») || die «Файл не найден!»; while (my $s = <SRC>) { chomp $s; next if $s =~ /^\s*$/ || $s =~ /^\s*#/; print «$s\n»; } close SRC;

sis_privet
(13.09.16 13:44:12 MSK) автор топика

Ссылка

#!/usr/bin/perl -w

use strict;
use FindBin;
my $base_dir = «$FindBin::Bin»;
my $file_name = «$base_dir/source.dat»;
open(SRC, «< $file_name») || die «Файл не найден!»;
while (my $s = <SRC>) {
chomp $s;
next if $s =~ /^\s*$/ || $s =~ /^\s*#/;
print «$s\n»;
}
close SRC;