forum.lissyara.su

Код: Выделить всё

Дата Имя Фамилия Отчество Телефон ОтКудаЗаходил КогдаЗаходил .... и т.д

Код: Выделить всё

LOAD DATA [LOW_PRIORITY | CONCURRENT] [LOCAL] INFILE 'file_name'
    [REPLACE | IGNORE]
    INTO TABLE tbl_name
    [CHARACTER SET charset_name]
    [{FIELDS | COLUMNS}
        [TERMINATED BY 'string']
        [[OPTIONALLY] ENCLOSED BY 'char']
        [ESCAPED BY 'char']
    ]
    [LINES
        [STARTING BY 'string']
        [TERMINATED BY 'string']
    ]
    [IGNORE number LINES]
    [(col_name_or_user_var,...)]
    [SET col_name = expr,...]

Код: Выделить всё

1987 Misha Pypkin 2556677

Код: Выделить всё

1988 Anton Sidorov 2449908
1989 Sasha Rostov 2324345

Код: Выделить всё

LOAD DATA INFILE "/usr/home/user/users" INTO TABLE users fields terminated by ' ' lines terminated by '\n';

Код: Выделить всё

#!/usr/local/bin/perl
use Mysql;
$dbh = Mysql->connect(undef,"users","anonymous","");
$filepath = "/usr/home/user/users.txt";
opendir (DIR, "$filepath");
@userfiles = sort readdir (DIR);

closedir(DIR);

foreach $file (@userfiles)
{
    open(USER,"$filepath/$file");
    @userdata = <USER>;
    chomp ($_) foreach (@userdata);
    close (USER);
    $inserth = $dbh->query("INSERT INTO users(year,name,sname,phone) VALUES ('$userdata[0]','$userdata[1]','$userdata[2]','$userdata[3]')");
    $num++;
}
print "'$userdata[0]' \n";
$counth = $dbh->query("SELECT ID FROM users");
$count = $counth->numrows;
print "В таблице $count пользователей, $num из которых только что было добавленно. \n\n";

Код: Выделить всё

#!/usr/bin/perl
use DBI;

$db_type = 'mysql';
$db_host = ''localhost;

$db_name = '';
$db_user = '';
$db_pass = '';

$dbh = DBI->connect("DBI:$db_type:database=$db_name;host=$db_host",  $db_user,  $db_pass,  {RaiseError => 1,  PrintError => 1   }    ) || die $DBI::errstr;

$filepath = "/usr/home/user/users.txt";
opendir (DIR, "$filepath");
@userfiles = sort readdir (DIR);

closedir(DIR);

foreach $file (@userfiles)
{
    open(USER,"$filepath/$file");
    @userdata = <USER>;
    chomp ($_) foreach (@userdata);
    close (USER);
   $dbh = do(
        qq{ INSERT INTO users(year,name,sname,phone) 
                              VALUES (?,?,?,?)
             }, undef,  $userdata[0], $userdata[1], $userdata[2],$userdata[3] );

    $num++;
}
print "'$userdata[0]' \n";

$counth = $dbh->selectrow_arrayref(qq{SELECT COUNT(*) FROM users }, undef );

print "В таблице $counth->[0] пользователей, $num из которых только что было добавленно. \n\n";

Код: Выделить всё

#!/usr/bin/perl
use DBI;
use Fcntl ':flock';
my $log = '/var/log/maillog';
open LOG, '<', $log or die "Can't open $log: $!\n";
flock(LOG,LOCK_EX);
my $pos = 0;
$pos = do {chomp; $_} while <DATA>;
seek LOG, $pos, 0 if $pos <= -s $log;

$dbh = DBI->connect("DBI:mysql:host=localhost;database=db","login","pass") 
    or die "Нет доступа к СУБД!";
$insert = "INSERT INTO maillog (data,text) VALUES(?,?)";
$sth = $dbh->prepare("$insert");


while ($line = <LOG>)
{
  my ($month, $day, $time, $hostname, $servicename) = split / /, $line, 5;

$timedata="$month $day $time";
$text = "$hostname $servicename";

$sth->execute($timedata,$text);
}

$sth->finish;
$dbh->disconnect;


$pos = tell LOG;
flock(LOG,LOCK_UN);
close LOG;
exec qw(perl -0777 -i -pe), 's/$/\n'.$pos.'/', $0;
__DATA__
0