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 Cwd;
use Math::Round; # for round()
use List::Util; # for max @list
use List::Util qw(max); # for max @list
### configure the pattern here ###
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 @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;
my $baudrate = round($base_freq/$divider);
@@ -37,7 +37,7 @@ sub remainder {
############################################################
### 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';
mkdir($dirname, 0777);
open(MYOUTFILE, '>>./'.$dirname.'/'.$filename);
@@ -47,7 +47,7 @@ open(MYOUTFILE, '>>./'.$dirname.'/'.$filename);
foreach my $iterator (@pins) {
print MYOUTFILE "Pin ";
print MYOUTFILE $iterator;
if ($iterator != max @pins) {
if ($iterator != max(@pins)) {
print MYOUTFILE '; ';
}
}