perlのリダイレクトLinuxの

Question

sub cdevice{ 
    $p=$_[0]; 
    $s=$_[1]; 
    $q=$_[2]; 
    try { 
     $device_create_cmd ="create type:NSR Device;media type:adv_file;name:$p;device access information:$p"; 
     system("echo $device_create_cmd > command.txt "); 
    } catch Error with { 
     print "Error " ; 
     exit();  
    }; 
} 
cdevice("/device1","raddh054","/device1"); 

このPLファイルは、Linuxでのエコーがテキストの間にスペースを受け付けていませんので！どのように私はそれを

Answer 1

の解決だけでファイルを開いて、そこに書き込みをWindows上ではなく、Linux上で正常に動作していますあなた自身。なぜシェルを巻き込むのですか？

use strictures; 
use autodie qw(:all); 

⋮ 

sub cdevice { 
    my ($p, $s, $q) = @_; 
    try { 
     open my $h, '>', 'command.txt'; 
     print {$h} "create type:NSR Device;media type:adv_file;name:$p;device access information:$p\n" 
    } …