Perl中使用open函数写入.xls文件失败，请求修复方案

Alright, let's break down why your code is failing with .xls files now (even though it worked in older Perl versions) and how to fix it properly.

The Root of the Problem #

Your current code treats .xls files like plain text (since you're using open() directly to write to them), but .xls is a binary compound document format—not a simple text file. Older Perl versions (pre-5.10, especially on Windows) had looser file-handling defaults, and older Excel versions were far more forgiving of malformed "Excel" files. Modern Perl enforces stricter IO rules, and modern Excel refuses to load invalid .xls structures, hence the failure.

Fix 1: Use a Proper Excel-Writing Module (Recommended) #

Perl has robust modules designed specifically to generate valid .xls files. The go-to choice is Spreadsheet::WriteExcel. Here's how to rewrite your code:

Step 1: Install the Module #

First, install the module via CPAN (or cpanm if you have it):

# Using CPAN
cpan Spreadsheet::WriteExcel

# Or using cpanm (faster, cleaner)
cpanm Spreadsheet::WriteExcel

Step 2: Replace Your Code with Valid Excel Generation #

This code creates a properly formatted .xls file that Excel will recognize every time:

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

my $filename = "abc.xls";

# Create a new Excel workbook
my $workbook = Spreadsheet::WriteExcel->new($filename) 
    or die "Couldn't create $filename: $!";

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

# Write your data (example: A1 and B1 cells)
$worksheet->write('A1', 'Your first data point');
$worksheet->write('B1', 'Your second data point');

# Close the workbook (saves automatically)
$workbook->close();

Fix 2: Fallback to CSV (If You Don't Need True .xls) #

If you don't strictly need a .xls file and just want something Excel can open, you can generate a CSV (Comma-Separated Values) file instead. CSV is plain text, so your original open() approach works here:

my $filename = "abc.csv";
open(my $fhandle, ">", $filename) 
    or die "Cannot open file $filename: $!";

# Write CSV-formatted data
print $fhandle "Column 1,Column 2\n";
print $fhandle "Data 1,Data 2\n";

close($fhandle);

Excel will open CSV files natively, but note this isn't a true .xls file—it's a text-based alternative.

Why Your Old Code Worked #

Older Perl versions (e.g., 5.8) on Windows used text-mode file handling by default, which sometimes didn't corrupt binary data as badly as you'd expect. Combine that with older Excel versions that would "guess" at malformed file structures to try to open them, and you get a setup that worked by accident. Modern tools don't cut that slack anymore, which is a good thing—you'll get more reliable, valid files with the proper module approach.

内容的提问来源于stack exchange，提问作者Shivam