Dashboard
PHP:
8.1.34
OS:
Linux
User:
uid288609
/
/
usr
/
share
/
doc
/
libspreadsheet-writeexcel-perl
/
examples
📤 Upload
📝 New File
📁 New Folder
Close
Editing: hyperlink1.pl
#!/usr/bin/perl -w ############################################################################### # # Example of how to use the WriteExcel module to write hyperlinks. # # See also hyperlink2.pl for worksheet URL examples. # # reverse('�'), March 2001, John McNamara, jmcnamara@cpan.org # use strict; use Spreadsheet::WriteExcel; # Create a new workbook and add a worksheet my $workbook = Spreadsheet::WriteExcel->new("hyperlink.xls"); my $worksheet = $workbook->add_worksheet('Hyperlinks'); # Format the first column $worksheet->set_column('A:A', 30); $worksheet->set_selection('B1'); # Add a sample format my $format = $workbook->add_format(); $format->set_size(12); $format->set_bold(); $format->set_color('red'); $format->set_underline(); # Write some hyperlinks $worksheet->write('A1', 'http://www.perl.com/' ); $worksheet->write('A3', 'http://www.perl.com/', 'Perl home' ); $worksheet->write('A5', 'http://www.perl.com/', undef, $format); $worksheet->write('A7', 'mailto:jmcnamara@cpan.org', 'Mail me'); # Write a URL that isn't a hyperlink $worksheet->write_string('A9', 'http://www.perl.com/');
Save
Cancel