Zwei Dateien auslesen - #182762 (Allgemeines zu Perl)

lichtkind

2015-11-02 19:10

User since
2004-03-22
5681 Artikel
ModeratorIn + EditorIn

sag bitte perl oder Perl nicht PERL , das tut den augen weh

Code (perl): (dl )

#!/usr/bin/perl

use v5.12;
use warnings;

sub processFile {
    my $nr = shift;
    my @a;
    print "\nEnter ID Sample $nr: ";       
    chomp(my $filename = <STDIN>);
    open (my $in, "<", $filename) or die "Datei $filename konnte konnte nicht gefunden werden!";
    open(my $out, ">", "out$nr.txt");
    while (<$in>) {
        chomp;   
        @a  = split /\t/;
        say $out $a[1],"\t",$a[12];
    }       
    close($in);
    close($out);
}

processFile($_) for qw/1 2/;

Code (perl): (dl )

for ($file2){

bewirkt nichts, eine schleife die einmal ausgeführt wird, was normaler code eh wird. ansonst wär das mein lieblingsstil:

wenn du richtig angeben willst geht auch:

Code (perl): (dl )

1
2

split(/\t/, $_);
        say $out join("\t", (split "\t" )[1,12] ) );

aber das ist schon an einer geschmacksgrenze, ne lösung mit regex fällt mir auch grad ein.
Last edited: 2015-11-03 10:11:06 +0100 (CET)

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.