Премини към съдържанието
Axel

Въпрос за Perl

Препоръчан отговор


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

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

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

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

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

Редактирано от Axel (преглед на промените)

Сподели този отговор


Линк към този отговор
Сподели в други сайтове
Здравейте, може ли някой да ми каже как в 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

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

Редактирано от Axel (преглед на промените)

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

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

#!/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 (преглед на промените)

Сподели този отговор


Линк към този отговор
Сподели в други сайтове
Ами ето някои примерчета:

#!/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, помогна ми много! ;)

и то най-вече това "system( "@args" ) " . Веднага получаваш репутация от мене! :clap:

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Добавете отговор

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

Гост
Напишете отговор в тази тема...

×   Вмъкнахте текст, който съдържа форматиране.   Премахни форматирането на текста

  Разрешени са само 75 емотикони.

×   Съдържанието от линка беше вградено автоматично.   Премахни съдържанието и покажи само линк

×   Съдържанието, което сте написали преди беше възстановено..   Изтрий всичко

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Добави ново...

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите Условия за ползване