#!/usr/bin/perl -w

# Datei oeffnen
open (USERS, "<users.txt") or die "Konnte Datei nicht oeffnen";
# in ein Array einlesen
@user_lst = <USERS>;
# Datei wieder schliessen
close(USERS);
# durchiterieren durch alle user
foreach $users (@user_lst)
{
$users=~ /(\w.*)\s/;
print "$1 \n";
}

#!/usr/bin/perl

use strict;
use warnings;
use

my $input = '/path/to/file.txt'; # die Ausgangsdatei
my $output = '/path/to/ergebnis.sql'; # das Ergebnis

# öffne die Ausgangsdatei, verwende ein lexikalisches Filehandle
# und fange eventuelle Fehler ab.
# verwende die 3-Arg-Form von open
open my $fh, '<', $input or die $!;

while( my $line = <$fh> ){
    chomp $line; # entferne das Newline
    my ($email, $name) = split / /, $line,2; # teile die Zeile am Leerzeichen - genau einmal teilen
    # hier dann sql-Statement ausgeben
}

close $fh;

#!/usr/bin/perl

use strict;
use warnings;


my @stuff = ('klaus@klaus.de klaus', 'fritz@fritz.de fritz', 'guenni@guenni.de guenni', 'hermann@hermann.de hermann');


foreach my $foo (@stuff) {
        $foo =~ /(\w+\@\w+\.\w+)\s(\w+)/;
        print $1 . " => ". $2;
        print "\n";
}

#!/usr/bin/perl

 my $input = 'users.txt'; # die Ausgangsdatei
# my $output = '/path/to/ergebnis.sql'; # das Ergebnis

 # öffne die Ausgangsdatei, verwende ein lexikalisches Filehandle
 # und fange eventuelle Fehler ab.
 # verwende die 3-Arg-Form von open
 open my $fh, '<', $input or die $!;
 $i=1;
 while( my $line = <$fh> ){
 $i++;
 chomp $line; # entferne das Newline
 my ($email, $name) = split / /, $line,2;
 print "INSERT into `profiles` (userid, login_name, realname) VALUES ($i, '$email', '$name');\n";
 
 }
      
close $fh;