perl スクリプトを使用して URL を実行しようとしています。その中で、最初はテキストファイルに値を保持し、ファイルに値を引数として設定しています。
#!/usr/bin/perl
use warnings;
open my $fh, '<','output_perl.txt' or die "Failed: $!\n";
my $text1 = do {
local $/;
<$fh>
};
close $fh or die "Failed again: $!\n";
open my $i, '<','output_perl_1.txt' or die "Failed: $!\n";
my $text2 = do {
local $/;
<$i>
};
close $i or die "Failed again: $!\n";
open my $j, '<','output_perl_2.txt' or die "Failed: $!\n";
my $text3 = do {
local $/;
<$j>
};
close $j or die "Failed again: $!\n";
そのため、変数$text1
を出力しようとすると$text2
、$text1
に格納されている値output_perl.txt
がoutput_perl_1.txt
反映 output_perl_2.txt
されます。つまり、以下に追加すると正常に動作します。
print $text1;
print $text2;
print $text3;
しかし、次の値を渡したい URL を 1 つ実行しています$text1/2/3
。
use LWP 5.64;
my $browser = LWP::UserAgent->new;
my $url = 'http://sms.apps.example.com/http/sendPlainText?$text1 $text2 $text3'
URL は完全に正常に機能していますが、値が渡されていません。URL が実行されると$text1
$text2
$text3
、まだ が表示されますが、上記のコマンドで出力される値を確認する必要があります。