Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

Въпрос за Perl

Последователи

1 февруари 200719 г.

Здравейте, може ли някой да ми каже как в Perl мога да направя следното:

Имам два файла,

единия не се променя(file1.pl), и в него има да кажем една формула от типа 4 х 3, интересува ме втория(file2.pl), при стартирането на който трябва да излезе въпрос от сорта на на "колко пъти?", и след което да дам бройката първия файл (file1.pl) да се изпълни точно толкова пъти, да се сумира, и да излезе резултата? Примерно давам 2, и резултата би трябвало да бъде (4х3)+(4х3) = 24. Ако дам 3 резулатата да е (4х3)+4х3)+4х3) = 36.

Предварително - много благодаря !!!

п.с. Забравих да спомена - става въпрос за скриптче и работи под UNIX!

Редактирано 1 февруари 200719 г. от Axel (преглед на промените)

1 февруари 200719 г.

Автор

Здравейте, може ли някой да ми каже как в Perl мога да направя следното:
Имам два файла,

единия не се променя(file1.pl), и в него има да кажем една формула от типа 4 х 3, интересува ме втория(file2.pl), при стартирането на който трябва да излезе въпрос от сорта на на "колко пъти?", и след което да дам бройката първия файл (file1.pl) да се изпълни точно толкова пъти, да се сумира, и да излезе резултата? Примерно давам 2, и резултата би трябвало да бъде (4х3)+(4х3) = 24. Ако дам 3 резулатата да е (4х3)+4х3)+4х3) = 36.

Предварително - много благодаря !!!

п.с. Забравих да спомена - става въпрос за скриптче и работи под UNIX!

Мисля че е малко неясно, затова си изменям въпроса - Perl файл под UNIX се стартира с "perl file1.pl". Какво обаче да е написано в тялото на file1.pl, че той да старира file2.pl ? Опитах с това:

#!/bin/sh

./file2.pl

и с това:

#!/bin/sh

perl file2.pl

...е не става... ПОМОЩ!!!

Редактирано 1 февруари 200719 г. от Axel (преглед на промените)

3 февруари 200719 г.

Ами ето някои примерчета:

#!/usr/bin/perl

## file1.pl ##


my $cmd = "./file2.pl";

my @args = ( $cmd, "one", "two" );


system( @args ) == 0 or die "System @args failed: $?";

#!/usr/bin/perl

## file2.pl ##


my $cmd = "./file2.pl";

my @args = ( $cmd, "one", "two" );


system( @args ) == 0 or die "System @args failed: $?";


javor@ubuntu:~/work/projects/perl$ cat file2.pl 

#!/usr/bin/perl


$nArgs = @ARGV;


foreach $ai ( 0 .. $nArgs - 1 )

{

		print "Argument($ai) = $ARGV[$ai]\n";

}

#!/bin/bash

## file1.sh ##

./file2.pl "one" "two"

Важното в случая е първият ред от файловете (напр. #!/usr/bin/perl) и да им дадеш executable права (chmod u+x file1.pl). Вариантът с "perl file.pl" в sh скрипт също би трябвало да работи (ако perl го има в PATH), какво по-точно не работи при теб - съобщения за грешка?

Редактирано 3 февруари 200719 г. от divak (преглед на промените)

6 февруари 200719 г.

Автор

Ами ето някои примерчета:
#!/usr/bin/perl

## file1.pl ##


my $cmd = "./file2.pl";

my @args = ( $cmd, "one", "two" );


system( @args ) == 0 or die "System @args failed: $?";
#!/usr/bin/perl

## file2.pl ##


my $cmd = "./file2.pl";

my @args = ( $cmd, "one", "two" );


system( @args ) == 0 or die "System @args failed: $?";


javor@ubuntu:~/work/projects/perl$ cat file2.pl 

#!/usr/bin/perl


$nArgs = @ARGV;


foreach $ai ( 0 .. $nArgs - 1 )

{

		print "Argument($ai) = $ARGV[$ai]\n";

}
#!/bin/bash

## file1.sh ##

./file2.pl "one" "two"
Важното в случая е първият ред от файловете (напр. #!/usr/bin/perl) и да им дадеш executable права (chmod u+x file1.pl). Вариантът с "perl file.pl" в sh скрипт също би трябвало да работи (ако perl го има в PATH), какво по-точно не работи при теб - съобщения за грешка?

Благодаря ти Divak, помогна ми много!