もりきゅうです。

<konet218@xxxxxxxxxx> wrote:
> $a = "mysql -h $hostname -u $username -p $dbname < $filename";
> systems($a);
> と、してみましたが何も起こりません。

system ですね。

#!/usr/bin/perl
use strict;
my $hostname = "localhost";
my $username = "root";
my $passwd = "password";
my $dbname = "test";
my $filename = "insert.sql";
my $a = "mysql -h $hostname -u $username -p$passwd $dbname < $filename";
system($a) == 0 or die "system failed: $?";

> # エラーメッセージさえ表示されません。

-w を付けましょう。

$ perl -w system.pl
Undefined subroutine &main::systems called at system.pl line 9.

----
YOSHIDA Kazuhiro  moriq@xxxxxxxxxx  http://www.moriq.com/