При запуске сценария perl в программе на C я получаю GLOB (0x1a6a8830) в качестве вывода - PullRequest
Новая
       30

При запуске сценария perl в программе на C я получаю GLOB (0x1a6a8830) в качестве вывода

1 голос
/ 11 марта 2011

Для одного из моих проектов нам пришлось написать многопоточную программу на C. Казалось, все идет хорошо. Затем профессор дал нам Perl-скрипт для запуска с нашим C-кодом, когда мы закончим. Однако на консоли, где я запускаю скрипт, всякий раз, когда моя программа должна выводить (я думаю), я получаю GLOB (0x1a6a8830) повсюду. Вот вывод.

GLOB (0x1a6a8830)

TRANS 995 -589398 987 154107 472 435291

GLOB (0x1a6a8830)

TRANS 397 -557927 559 798860 989 -240933

ГЛОБО (0x1a6a8830)

TRANS 289 -368267 408 139828 419 842413 277 -598329 613 372608 285 508034 256 -896287

С ТРАНС (тогда цифры) является входом, который захватывается моей C-программой. Кто-нибудь знает, что это за ГЛОБ ???? 

use strict;
use warnings;
use integer;

if (@ARGV < 1) {

print "Use: $0 <program> [<nthreads> [<naccounts> [<seed>]]]\n";
exit 1;
}

my($prgm, $thread, $accts, $seed) = @ARGV;

$thread ||= 10;
$accts ||= 1000;
$seed ||= 0;

srand($seed);

my $outfile = 'testout-'.$$;
my($c_in, $f_in, $c_out, $f_out);
pipe $f_in, $c_in;
pipe $c_out, $f_out;
my $pid = fork;

`if ($pid == 0) {
open STDIN, '<&', $f_in;
open STDOUT, '>&', $f_out;
close $c_in;
close $c_out;
close $f_in;
close $f_out;
exec $prgm, $thread, $accts, $outfile;
exit 1;
} else {
close $f_in;
close $f_out;
}

# make the pipes autoflush
select $c_in; $| = 1;
select $c_out; $| = 1;
 select STDOUT;

sub sr {
my $line = shift;
print "\e[33m$line\e[m\n";
print $c_in "$line\n";
my $resp = $c_out;
chomp $resp;
print "\e[32m$resp\e[m\n";
return $resp;
}

my $init_skip = 0;
for my $id (0..($accts/10 - 1)) {
my $line = 'TRANS';
$line .= ' '.($id*10 + $_).' 10000000' for 1..10;
sr $line;
$init_skip++;
}

    print "\e[35mWaiting for initial deposits to complete...\e[m\n";
   sleep 60;

for my $line (1..1000) {
my $line = "TRANS";
my $bal = 0;
my $len = int rand 8;
my %dups;
for (0..$len) {
    my $acct = 1 + int rand $accts;
    my $amt = 1_000_000 - int rand 2_000_000;
    next if $dups{$acct}++;
    $bal += -$amt;
    $line .= " $acct $amt";
}
my $acct = 1 + int rand $accts;
next if $dups{$acct};
$line .= " $acct $bal";
sr $line;
}

print "\e[35mWaiting for transactions to complete...\e[m\n";
sleep 60;

for my $id (1..$accts) {
sr "CHECK $id";
}

print "\e[33mEND\e[m\n";
print $c_in "END\n";
print "\e[35mWaiting for program to exit...\e[m\n";
wait;
no integer;
print "\e[35mChecking output file:\e[m\n";

open F, $outfile;
my $trcount = 0;
my $trtime = 0;
my $balcount = 0;
my $baltime = 0;
my $total = 0;
while (<F>) {
if ($init_skip-- > 0) {
    die "Bad (initial deposit) output line: $_" unless /^\d+ OK TIME/;
} elsif (/ (OK|ISF \d+) TIME (\d+)(\.\d+) (\d+)(\.\d+)/) {
    $trtime += ($4 - $2) + ($5 - $3);
    $trcount++;
} elsif (/^\d+ BAL (\d+) TIME (\d+)(\.\d+) (\d+)(\.\d+)/) {
    $total += $1;
    $baltime += ($4 - $2) + ($5 - $3);
    $balcount++;
} else {
    die "Bad output line: $_";
}
}
close F;

if ($balcount != $accts) {
print "ERR: There were $accts accounts but only $balcount balance queries\n";
}
print "Final balance of all $accts accounts is $total\n";
my $travg = $trtime / $trcount;
printf 'The %d transactions took %.2fs total, or an average of %.4fs each'."\n",
$trcount, $trtime, $travg;
my $balavg = $baltime / $balcount;
printf 'The %d balance checks took %.2fs total, or an average of %.4fs each'."\n",
$balcount, $baltime, $balavg;

Это весь сценарий Perl

Моя программа действует как многопоточный банковский сервер и принимает команды TRANS и CHECK

Ответы [ 2 ]

4 голосов
/ 11 марта 2011

На первый взгляд, я вижу две опечатки в размещенном скрипте. Первая строка ` в строке 25. Вторая строка 

my $resp = $c_out;

То есть присвоение дескриптора файла $resp, а не чтение из него. Наверное, должно быть так: 

my $resp = <$c_out>;
1 голос
/ 11 марта 2011

Это ссылка на глобус. Возможно, кто-то оставил отладочную печать. Найдите подозрительные команды print в скрипте perl и закомментируйте их.

...