dunkelbader/moku_pattern_gen
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

corrected typos and missing import specifications

Browse Source
This commit is contained in:
Jan N. Bader
2023-07-28 15:54:08 +02:00
parent 285c072c38
commit 0f6a39917e
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
moku_pattern_gen.pl
View File

@@ -3,7 +3,7 @@ use strict;
use warnings; use warnings;
#use Cwd; #use Cwd;
use Math::Round; # for round() use Math::Round; # for round()
use List::Util; # for max @list use List::Util qw(max); # for max @list
### configure the pattern here ### ### configure the pattern here ###
my $divider = 1; # configured freq divieder my $divider = 1; # configured freq divieder
@@ -20,7 +20,7 @@ my $base_cliq = 8; # sample periode in ns
my $max_cliqs = 32764; # max sample length my $max_cliqs = 32764; # max sample length
my @pins = (1,2,3,4,5,6); my @pins = (1,2,3,4,5,6);
my @pin_names = ("LS1", "LS2", "HS", "SS", "LSS", "Rx") my @pin_names = ("LS1", "LS2", "HS", "SS", "LSS", "Rx");
$base_cliq *= $divider; $base_cliq *= $divider;
my $baudrate = round($base_freq/$divider); my $baudrate = round($base_freq/$divider);
@@ -37,7 +37,7 @@ sub remainder {
############################################################ ############################################################
### create outfile in output directory sorted by sampling frequency ### ### create outfile in output directory sorted by sampling frequency ###
my $dirname = 'CODE-AFE_pattern'.sprintf("%.0f", $baud_rate).'MHz'; my $dirname = 'CODE-AFE_pattern'.sprintf("%.0f", $baudrate).'MHz';
my $filename = 'CODE-AFE_pattern'.sprintf("%.0f", $sig_freq).'MHz.csv'; my $filename = 'CODE-AFE_pattern'.sprintf("%.0f", $sig_freq).'MHz.csv';
mkdir($dirname, 0777); mkdir($dirname, 0777);
open(MYOUTFILE, '>>./'.$dirname.'/'.$filename); open(MYOUTFILE, '>>./'.$dirname.'/'.$filename);
@@ -47,7 +47,7 @@ open(MYOUTFILE, '>>./'.$dirname.'/'.$filename);
foreach my $iterator (@pins) { foreach my $iterator (@pins) {
print MYOUTFILE "Pin "; print MYOUTFILE "Pin ";
print MYOUTFILE $iterator; print MYOUTFILE $iterator;
if ($iterator != max @pins) { if ($iterator != max(@pins)) {
print MYOUTFILE '; '; print MYOUTFILE '; ';
} }
} }