엑셀 시트의 서로 다른 두 열에 두 변수가 있습니다.

Question

동일한 Excel 시트의 서로 다른 두 열에 두 변수를 어떻게 인쇄 할 수 있습니까?

$a=<>; 
$b=<>; 

@mul=("$a","$b"); 

open(OUT,">output.csv"); 

for ($i = 0; $i < scalar(@mul)-1; $i++) { 
    $source=$mul[$i]; 

    print "\n\nComparision of source: $mul[$i]\n"; 
    print "------------------------------------"; 

    for ($j = $i+1; $j < scalar(@mul); $j++) { 
     $sample=$mul[$j]; 

     print "\n$sample "; 
     print "\n------\n"; 

     $t=mutate($source,$sample); 

     print OUT $t; 
    } 
} 

sub mutate { 
    my ($s1,$s2)=@_; 

    $temp=""; 

    for ($k = 0; $k < length($s1); $k++) { 
     $seq1=substr($s1,$k,1); 
     $seq2=substr($s2,$k,1); 

     if ($seq1 ne $seq2) { 
      $temp.="($k)"; 
      $temp1.="([$seq1/$seq2])"; 
     } 
    } 

    return $temp; 
    return $temp1; 
} 

close OUT; 

여기에 내가 같은 excelsheet의 다른 열 한 엑셀의 열 및 $temp2에 $temp를 인쇄해야합니다. 당신이 좋아하는 Spreadsheet::WriteExcel을 사용 할 수

Answer 1

,

use strict; 
    use warnings; 
    use Spreadsheet::WriteExcel; 

    # Create a new Excel workbook 
    my $workbook = Spreadsheet::WriteExcel->new('perl.xls'); 

    # Add a worksheet 
    my $worksheet = $workbook->add_worksheet(); 

    # Add and define a format 
    my $format = $workbook->add_format(); # Add a format 
    $format->set_bold(); 
    $format->set_color('red'); 
    $format->set_align('center'); 

    # Write a formatted and unformatted string, row and column notation. 

    $worksheet->write('A1', 'Test', $format); 
    $worksheet->write('B1', 'Excel', $format);