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. |