Perl - Regex для чтения файла журнала

Question

Я прочитал и не нашел ответа. Я хочу прочитать файл журнала и распечатать все после ":", но в некоторых журналах есть место, прежде чем некоторые не будут. Я хочу, чтобы соответствовать только один с не пробел в начале.

_thisnot: this one has space
thisyes: this one has not space at the beginning.

Я хочу сделать это для каждой строки в файле.

Answer 1

Или вы можете использовать один лайнер, как:

perl -ne 's/^\S.*?:\s*// && print' file.log

Answer 2

Как насчет:

#!/usr/bin/perl 
use strict;
use warnings;
use 5.010;

my %result;
while(<DATA>) {
    chomp;
    next if /^\s/;
    if (/^([^:]*):\s*(.*)$/) {
        $result{$1} = $2;
    }
}

__DATA__
 thisnot: this one has space
thisyes: this one has not space at the beginning.

Answer 3

# Assuming you opened log filehandle for reading...
foreach my $line (<$filehandle>) {
    # You can chomp($line) if you don't want newlines at the end
    next if $line =~ /^ /; # Skip stuff that starts with a space
              # Use  /^\s/ to skip ALL whitespace (tabs etc)
    my ($after_first_colon) = ($line =~ /^[^:]*:(.+)/);
    print $after_first_colon if $after_first_colon; # False if no colon. 

}