fork(1) download 
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5. use Data::Dumper;
  6.  
  7. my %details = (
  8. 	tester_name	=> 'UFLEX-06',
  9. 	op_sys		=> 'Windows',
  10. 	igxl_vn		=> '8.00.01_uflx (P7)',
  11. 	slot		=> [
  12. 		'2',
  13. 		'5' 
  14. 	],
  15. 	board_name	=> [ 
  16. 		'bn1',
  17. 		'bn2'
  18. 	],
  19. );
  20. my $timestamp = time;
  21.  
  22. for (my $i = 0; $i < @{$details{slot}}; $i++) {
  23. 	print 
  24. 		"INSERT INTO TesterDeviceMatrix.TBL_TESTER_INFO"
  25. 		."(tester_name, operating_system , version, board_name , config , date_modified ) "
  26. 		."VALUES ('$details{tester_name}', '$details{op_sys}', '$details{board_name}[$i]', "
  27. 		."'$details{igxl_vn}', '$details{slot}[$i]', '$timestamp');\n";
  28. }
  29.  
Success #stdin #stdout 0.02s 7292KB
comments (?)
stdin 
Standard input is empty
stdout 
INSERT INTO TesterDeviceMatrix.TBL_TESTER_INFO(tester_name, operating_system , version, board_name , config , date_modified ) VALUES ('UFLEX-06', 'Windows', 'bn1', '8.00.01_uflx (P7)', '2', '1434012698');
INSERT INTO TesterDeviceMatrix.TBL_TESTER_INFO(tester_name, operating_system , version, board_name , config , date_modified ) VALUES ('UFLEX-06', 'Windows', 'bn2', '8.00.01_uflx (P7)', '5', '1434012698');
https://ideone.com/OcHmRR
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!