Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re^3: Perl tk - open file and print content

by zentara (Archbishop)
on Jan 19, 2012 at 10:42 UTC ( #948750=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Perl tk - open file and print content
in thread Perl tk - open file and print content

SO i try to install it manually getting this error massage: Net::CUPS Configuration Running cups-config ... failed. Net::CUPS requires the Common Unix Printing System. Check your system configuration and then attempt the configure process again. (i have perl v5.10.1 on Ubuntu) Can anyone help me please ? i'm going crazy !

On Ubuntu, you should first use the apt-get or Synaptics Package Manager to install Perl modules. Why? Because Ubuntu often has many dependencies, that are required before installation. I would look thru your menu, and find Synaptic's Package Manager, run it and search for "perl Net::Cups", then install all the dependencies.

Also, unless you have the latest Perl version 14.x installed, the Perl that comes with Ubuntu is older, around version 10 or 12, and the latest Net::Cups may not work at those Perl version levels. You may need an earlier release of the Net::CUPS module to be compatible. See Cups on Ubuntu


I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh


Comment on Re^3: Perl tk - open file and print content
Re^4: Perl tk - open file and print content
by Giorgio C (Novice) on Jan 19, 2012 at 14:25 UTC
    Thank you so much, now CUPS works fine !! I am able to open a file and it printed content in the terminal. I'm not able to print that content (of the txt files) in a scrolled GUI windows. Can you suggest me the correct sintax to link print@line in $mw....???
    sub open_file {my $open = $mw->getOpenFile(-filetypes => $types_OPEN, -defaultextension => '.sff'); $read_fh = IO::File->new("$open",'r'); read_text($read_fh); } sub read_text { local $read_fh = shift; my @lines; @lines = <$read_fh>; print @lines; MainLoop }
      Can you suggest me the correct sintax to link print@line in $mw....???

      You can't print in the $mw directly, but you can print to a Scrolled Text Widget in the $mw.

      #!/usr/bin/perl use warnings; use strict; use Tk; open (FH,"<$0") or warn "$!\n"; my @lines = <FH>; close FH; my $mw = MainWindow->new(-title=>'Colored Text'); $mw->geometry(($mw->screenwidth-10) . 'x' . ($mw->screenheight-10) . '+0+20'); $mw->fontCreate('big', -family=>'arial', -weight=>'bold', -size => 25 ); my $text = $mw->Scrolled("Text", -scrollbars => 'osw', -background => 'white', -font =>'big', -wrap => 'none', )->pack; $text->tagConfigure('greyline', -background => 'grey95'); my $toggle = -1; for (@lines) { my $greyline; if( $toggle == 1 ){ my $greyline = '' } else { $greyline = 'greyline' } $text->insert('end',"$_",$greyline); $toggle *= -1; } MainLoop;

      I'm not really a human, but I play one on earth.
      Old Perl Programmer Haiku ................... flash japh
        Thanks you for your reply and herlp. Unfortunately with this script i didn't resolve my problem. Because this print out the code of the script itself. I would like to print in that scrolled txt widget what i choose to open when i push a button. ( "open" that calls the function 'Get_open_file' that show me the dir of my PC, than choosing a txt file it should be printed in that scrolled widgets. I don't know if i have been clear! I hope you understand me....please save me ! It's really important

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://948750]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2014-09-19 11:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (136 votes), past polls