alex/ase_perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

g201 1

Browse Source
This commit is contained in:
battilo
2018-05-12 18:57:08 +02:00
parent 2cdd1423d3
commit 32b7853754
2 changed files with 27 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
LoadCSVData.pl
View File

@@ -36,9 +36,8 @@ my $ftp_passwd;
my $ftp_parm; my $ftp_parm;
my $ftp_filename; my $ftp_filename;
my $ftp_target; my $ftp_target;
my $unit_id; my ($unit_id, $unit, $unittype);
my $unit; my ($fileDate, $fileTime);
my $unittype;
my $matlab_rt = "/usr/local/MATLAB/MATLAB_Runtime/v93"; my $matlab_rt = "/usr/local/MATLAB/MATLAB_Runtime/v93";
my $matlab_func_dir = "/usr/local/matlab_func/"; my $matlab_func_dir = "/usr/local/matlab_func/";
@@ -356,10 +355,17 @@ if ( $db_name ne 'asega' ) {
else { else {
$db_name = 'ase_lar'; $db_name = 'ase_lar';
} }
if ( $filename = m/^(\d\d_\d\d\d\d_|)(DT\d\d\d\d|LOC\d.*|GD\d*)$/i ) { # GD801
my ( $fileDate, $fileTime ) = split( /\s/, <FILE> ); ($fileDate, $fileTime) = split( /\s/, <FILE> );
($unittype, $unit ) = split( /\s/, uc <FILE> ); ($unittype, $unit ) = split( /\s/, uc <FILE> );
$unit =~ s/;+$//; $unit =~ s/;+$//;
} elsif ( $filename = m/^(\d\d\d\d\d\d\d\d\d\d\d\d\d\d_)(G201_ID\d\d\d\d_DT\d\d\d\d)$/i ) { # GD201
my @strings = $filename =~ /(.{1,4})(.{1,2})(.{1,2})(.{1,2})(.{1,2})(.{1,2})_(.{1,4})_(.{1,6})_(.{1,6}).*/;
$fileDate = $strings[0] . "/" . $strings[1] . "/" . $strings[2];;
$fileTime = $strings[3] . ":" . $strings[4] . ":" . $strings[5];
$unittype = $strings[6];
$unit = $strings[7];
}
while ( my $line = <FILE> ) { while ( my $line = <FILE> ) {
my ( $first, $NodeData ) = split( /;/, $line, 2 ); my ( $first, $NodeData ) = split( /;/, $line, 2 );

17
prova.pl
View File

@@ -1,8 +1,19 @@
#!/usr/bin/perl #!/usr/bin/perl
use warnings; use warnings;
use strict; use strict;
my $string= "20180418103606_G201_ID1111_DT2222.csv";
my @strings = $string =~ /(.{1,4})(.{1,2})(.{1,2})(.{1,2})(.{1,2})(.{1,2})_(.{1,4})_(.{1,6})_(.{1,6}).*/;
foreach(@strings) {
print "$_\n";
}
use Data::Dumper qw(Dumper);
my @arr = (2,3,4,5,6); my $fileDate = $strings[0] . "/" . $strings[1] . "/" . $strings[2];;
print scalar @arr . ".\n"; # First way to print array size my $fileTime = $strings[3] . ":" . $strings[4] . ":" . $strings[5];
my $unittype = $strings[6];
my $unit = $strings[7];
print $fileDate . "\n";
print $fileTime . "\n";
print $unittype . "\n";
print $unit . "\n";