Ocena wątku:
  • 0 głosów - średnia: 0
  • 1
  • 2
  • 3
  • 4
  • 5
Pakiet convert centrowanie tekstu w obrazku
#1
0
Kod:
#!/usr/bin/perl -w
use Data::Dumper;
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[4];
    $nazwa =~ tr#/#_#;


system "convert qsl2.png  -font Arial -pointsize 20 -gravity southwest -fill navyblue -stroke none  -annotate 0 '  To radio: $fields[3]\n Date: $fields[0] $fields[1] GMT\n MHz $fields[5]\n Mode: $fields[4]\n Sent: $fields[6] Rcvd: $fields[7]\n Thx: for QSO $fields[4]!!!\n Plis card QSL via Biuro' qsl_ok/$fields[3].jpg";
  } else {
        warn "Line could not be parsed: $line\n";
         }
}

uruchamianie:
Kod:
pawel@pawel-System-Product-Name:~/Pulpit/sh/eqsl$ ./qsl.pl test.csv

Daje efekt końcowy taki jak na obrazku.
Pytanie co zrobić żeby tekst był wycentrowany? 
Dane na dole obrazka są pobierane z pliku test.csv
[Obrazek: FT8.jpg]
Odpowiedz


Wiadomości w tym wątku
Pakiet convert centrowanie tekstu w obrazku - przez Pawel_SP5SMY - 14-04-2023, 11:19

Skocz do:




Użytkownicy przeglądający ten wątek: 1 gości