\r\n und $ - #167882 (Allgemeines zu Perl)

Linuxer

2013-05-31 00:58

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Wenn Du nur die erste Zeile willst und die Zeichen des Umbruchs nicht erwünscht sind, könntest Du sie (die Zeichen) auch einfach vom Match ausschließen:

Code (perl): (dl )

#! /usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Useqq = 1;

my $filename = shift || die "no file given.\n";

open my $fh, '<', $filename or die "$!\n";

my $line = <$fh>;

if ( $line =~ m{^([^\r\n]*)} ) {
    print Data::Dumper->Dump( [ $line, $1 ], [ qw( *line *1 ) ] );
}

close $fh;

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!