How to do this in perl?

Login or Register to Ask a Question and Join Our Community

How to do this in perl?

Tags

Login to Discuss or Reply to this Discussion in Our Community

Top Forums Shell Programming and Scripting How to do this in perl?

03-17-2011

Registered User

3, 0

Join Date: Mar 2011

Last Activity: 2 November 2011, 9:56 PM EDT

Posts: 3

Thanks Given: 0

Thanked 0 Times in 0 Posts

How to do this in perl?

We have data in sqlite db with fields (id, wk#, room, name),
and records look like below.

Code:

01 wk1 E1 aa
02 wk1 E3 bb
03 wk1 E4 aa
..... and more
nn wk2 E2 bb
nn wk2 E3 cc
nn wk3 E1 cc
nn wk3 E3 aa
nn wk1 E2 cc
nn wk5 E1 dd
... and more

Week # goes up to 52 and about 50 rooms.

Now, I need to print above data in HTML table that looks like table in below. It is impossible to print 52 weeks/columns in one page. So, I'm thinking to print 4 weeks (one week in a column) per page, and a link to next page that shows the next 4 wks.
Also, it would be nice to start from the current week (wk 11, 12, 13 & 14), and next page will print wk15 to wk18, etc.

Code:

      .....| wk1 | wk2 | wk3 | wk4 
======================
E1  | resv |        |resv |        
E2  |        | resv |resv |resv  
E3  | resv | resv |...............
E4  | resv |
E5  | 
more rows......

How can code this in Perl?

Thank you!

Last edited by Franklin52; 03-17-2011 at 06:46 AM.. Reason: Please use code tags

34drysdale

View Public Profile for 34drysdale

Find all posts by 34drysdale

03-17-2011

Registered User

2,100, 402

Join Date: Apr 2009

Last Activity: 11 February 2020, 10:24 AM EST

Posts: 2,100

Thanks Given: 26

Thanked 402 Times in 360 Posts

Quote:

Originally Posted by 34drysdale

...
Now, I need to print above data in HTML table that looks like table in below. It is impossible to print 52 weeks/columns in one page. So, I'm thinking to print 4 weeks (one week in a column) per page, and a link to next page that shows the next 4 wks.
Also, it would be nice to start from the current week (wk 11, 12, 13 & 14), and next page will print wk15 to wk18, etc.

Code:

      .....| wk1 | wk2 | wk3 | wk4 
======================
E1  | resv |        |resv |        
E2  |        | resv |resv |resv  
E3  | resv | resv |...............
E4  | resv |
E5  | 
more rows......

How can code this in Perl?
...

Not sure about HTML, but you could start with a Perl-only solution like the following, and stick in the HTML stuff wherever appropriate -

Code:

$
$
$ cat input
01 wk1 E1 aa
02 wk1 E2 bb
03 wk1 E3 cc
04 wk2 E1 dd
05 wk2 E2 ee
06 wk2 E3 ff
07 wk3 E1 gg
08 wk3 E2 hh
09 wk3 E3 ii
10 wk4 E1 jj
11 wk4 E2 kk
12 wk4 E3 ll
13 wk5 E1 mm
14 wk5 E2 nn
15 wk5 E3 oo
16 wk6 E1 pp
17 wk6 E2 qq
18 wk6 E3 rr
$
$
$ perl -ane '$x{$F[2]}{$F[1]}=$F[3];
             END {
               $quartet = 0;
               do {
                 $quartet++;
                 @x = map {$_ = "wk".$_} (4*($quartet-1)+1 .. $quartet*4);
                 printf("%10s|%5s|%5s|%5s\n%s\n",@x, "="x30);
                 foreach $room (sort keys %x){
                   printf("%4s", $room);
                   foreach $week (sort keys %{$x{$room}}) {
                     $idx = $week; $idx =~ s/^wk//;
                     printf("|%5s",$x{$room}{$week}) if $idx >= 4*($quartet-1)+1 && $idx <= $quartet*4;
                   }
                   print "\n";
                 }
                 print "\n\n\n<LINK TO NEXT PAGE HERE>\n\n\n";
               } until $quartet == 2;
             }' input
       wk1|  wk2|  wk3|  wk4
==============================
  E1|   aa|   dd|   gg|   jj
  E2|   bb|   ee|   hh|   kk
  E3|   cc|   ff|   ii|   ll
 
<LINK TO NEXT PAGE HERE>

       wk5|  wk6|  wk7|  wk8
==============================
  E1|   mm|   pp
  E2|   nn|   qq
  E3|   oo|   rr
 
<LINK TO NEXT PAGE HERE>

$
$

tyler_durden

durden_tyler

View Public Profile for durden_tyler

Find all posts by durden_tyler

03-17-2011

Registered User

3, 0

Join Date: Mar 2011

Last Activity: 2 November 2011, 9:56 PM EDT

Posts: 3

Thanks Given: 0

Thanked 0 Times in 0 Posts

Wow! That's awesome! But I'm not sure how the code works. Can you tell me what is that ("="x30) in the printf below? printf(\"%10s|%5s|%5s|%5s\n%s\n\",@x, \"=\"x30);

And what is this ( until $quartet == 2

for?
Also, how is that refer to the next page? I don't see anything passed in.
Thank you, bobo

---------- Post updated at 08:05 PM ---------- Previous update was at 07:47 PM ----------

How to translate this into a script instead of command line? Thanks!

34drysdale

View Public Profile for 34drysdale

Find all posts by 34drysdale

03-18-2011

Registered User

2,100, 402

Join Date: Apr 2009

Last Activity: 11 February 2020, 10:24 AM EST

Posts: 2,100

Thanks Given: 26

Thanked 402 Times in 360 Posts

Quote:

Originally Posted by 34drysdale

... Can you tell me what is that ("="x30) in the printf below? printf(\"%10s|%5s|%5s|%5s\n%s\n\",@x, \"=\"x30);

Sure. "x" is Perl's repetition operator, so "=" x 30 results in a string that consists of the "=" character repeated 30 times. And printf prints the string.

Quote:

...
And what is this ( until $quartet == 2 Smilie

Smilie

for?
...

For providing an exit condition to the loop. Otherwise it's an infinite loop and the program would go on ad infinitum.

Quote:

...
Also, how is that refer to the next page? I don't see anything passed in. ...

The value of $quartet is the page number. So the number of the next page would be $quartet + 1.

Quote:

... How to translate this into a script instead of command line? ...

A Perl script will have to open, read and close your data file explicitly. (In the command-line, opening and closing of the file is done automatically for you.) Thereafter, the processing in the "END" portion would largely be the same in a script as in the command-line.

HTH,
tyler_durden

durden_tyler

View Public Profile for durden_tyler

Find all posts by durden_tyler

Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not...

2. Programming

Perl: restrict perl from automaticaly creating a hash branches on check

My issue is that the perl script (as I have done it so far) created empty branches when I try to check some branches on existence. I am using multydimentional hashes: found it as the best way for information that I need to handle. Saing multidimentional I means hash of hashes ... So, I have ...

3. Shell Programming and Scripting

Perl :: reading values from Data Dumper reference in Perl

Hi all, I have written a perl code and stored the data into Data structure using Data::Dumper module. But not sure how to retreive the data from the Data::Dumper. Eg. Based on the key value( Here CRYPTO-6-IKMP_MODE_FAILURE I should be able to access the internal hash elements(keys) ...

4. UNIX for Advanced & Expert Users

perl and HP-UX : instmodsh in combination with software depot : update inventory for installed Perl

we create a HP-UX software depot with a new perl-modul. after installation of the software depot, the perl module i can't find with instmodsh in the inventory for installed Perl modules. - i have learned of using instmodsh command : i find out what modules are already installed on my system. ...

5. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am...

6. Shell Programming and Scripting

Hidden Characters in Regular Expression Matching Perl - Perl Newbie

I am completely new to perl programming. My father is helping me learn said programming language. However, I am stuck on one of the assignments he has given me, and I can't find very much help with it via google, either because I have a tiny attention span, or because I can be very very dense. ...

7. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ?

8. Shell Programming and Scripting

perl/unix: script in command line works but not in perl

so in unix this command works works and shows me a list of directories find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt but when i try running a perl script to run this command my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';...

9. Shell Programming and Scripting

Passing date formats in Perl: i.e. Jul/10/2007 -> 20070710 (yyyymmdd) - Perl

Hi , This script working for fine if pass script-name.sh Jul/10/2007 ,I want to pass 20070710(yyyymmdd) .Please any help it should be appereciated. use Time::Local; my $d = $ARGV; my $t = $ARGV; my $m = ""; @d = split /\//, $d; @t = split /:/, $t; if ( $d eq "Jan" ) { $m = 0 }...

10. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >...

Login or Register to Ask a Question