#!/usr/bin/perl

use strict;
use warnings;

my $infile = '/path/to/source.txt';
my $outfile = '/other/path/to/outfile.txt';

# welche Spalten sind gewünscht? (Hier: die 2., 5., 8., 9., 10.)
# Achtung: Es ist jeweils der Index - beginnt also bei 0 (wie bei Arrays)
my @wanted = qw(1 4 7 8 9); 

open my $in,'<',$infile or die $!;
open my $out,'>',$outfile or die $!;
while(my $line = <$in>){
    chomp $line;
    my @cols = split /,/$line;
    print $out join("\t",@cols[@wanted]),"\n";
}
close $out;
close $in;

my @cols = split /,/$line;

my @cols = split /,/,$line;

#!/usr/bin/perl

use strict;
use warnings;

# my $infile = '/path/to/source.txt';
# my $outfile = '/other/path/to/outfile.txt';

my $in_file = 'D:\folder\in.txt';
my $out_file= 'D:\folder\out.txt';

# welche Spalten sind gewünscht? (Hier: die 2., 5., 8., 9., 10.)
# Achtung: Es ist jeweils der Index - beginnt also bei 0 (wie bei Arrays)

# my @wanted = qw(1 4 7 8 9);
my @wanted = qw(0 1 2 3 4 5 6 7);

open my $in,'<',$infile or die $!;
open my $out,'>',$outfile or die $!;
while(my $line = <$in>){
   chomp $line;
   my @cols = split /,/,$line;
   print $out join("\t",@cols[@wanted]),"\n";
}
close $out;
close $in;

# my $infile = '/path/to/source.txt';
# my $outfile = '/other/path/to/outfile.txt';

my $in_file = 'D:\folder\in.txt';
my $out_file= 'D:\folder\out.txt';