Można też „na piechotę”. Robię to tak:
Z programu logującego generuję plik „csv”:
30 Feb 2022,00:58,SQ6NDC,SSB,3.778,46,59,Bogusław,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
i używając napisanego przez siebie skryptu:
########################
#!/usr/bin/perl -w
use Data:
umper,
use strict,
use warnings,
use Text::CSV,
my $csv = Text::CSV->,new( sep_char =>, ',' ),
my $file = $ARGV[0] or die "Need to get CSV file on the command line\n",
#my $wyp_mal = ' ',
#my $wyp_duz = ' ',
open(my $data, '<,:encoding(utf8)', $file) or die "Could not open '$file' $!\n",
while (my $line = <,$data>,)
chomp $line,
if ($csv->,parse($line))
my @fields = $csv->,fields(),
my $nazwa = $fields[2],
$nazwa =~ tr#/#_#,
system "convert qsl2.png -font TeXGyreSchola -pointsize 18 -gravity southwest -fill navyblue -stroke none -annotate 0 ' To: $fields[2]\n Date: $fields[0] $fields[1] GMT on $fields[4] MHz $fields[3]\n with rpt: $fields[6]\n Thx for QSO $fields[7]' qsl_ok/$nazwa.jpg",
else
warn "Line could not be parsed: $line\n",
##################
Dostaję coś takiego:
Jak widać w tym przypadku plik „csv” był pisany ręcznie.
Potrzebny jest Perl i ImageMagick.
