Re: [opensuse] Reinstall KDE4. On Fri, 2008-02-15 at 14:29 +0100, Herbert Graeber wrote: > Tom Cada schrieb: > > I had updated KDE4 to the most recent version 4.01. Now when I start > > it , none of the widgets (icons?) are shown. There are just items > > containing the message that the object cannot be displayed. In > > addition there is no wallpaper or taskbar. > >  > > One possibility that comes to mind is that I never removed prior > > versions before installing a new version. >  > The switch from the KDE:KDE4 repository to the KDE:KDE4:STABLE:Desktop > repository has started a new sequqnece of package release numbers. So > you must update all packages of the KDE:KDE4:STABLE:Desktop even when > the already installed package seems to be newer. On a similar topic, I see a dozen or so kde 4 packages that have a version like 3.93.svn. They cannot be installed. For example, kde4-fsview. They seem to be in the repository: http://download.opensuse.org/repositories/openSUSE:10.3/standard/ Should they be there? I am guessing that they existed when this was made, but they are not needed now, and there is no newer version to 'hide' these. Or is my setup wonked? --  Roger Oberholtzer OPQ Systems / RambÃ¶ll RST RambÃ¶ll Sverige AB KapellgrÃ¤nd 7 P.O. Box 4205 SE-102 65 Stockholm, Sweden Office: Int +46 8-615 60 20 Mobile: Int +46 70-815 1696 --  >From uiaregi@gunnar.cc  Sat Apr 26 15:49:27 2008 Message-ID: <20080226200845.1507.qmail@lists.develooper.com> To: soiofdvxg@perl.org Date: Tue, 26 Feb 2008 21:06:32 +0100 From: Gunnar Hjalmarsson  MIME-Version: 1.0 Subject: Re: looping thru delete check boxes Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit ken uhl wrote: > I  have a page that displays a list of entries with Delete Check boxes > how Do I loop thru all the checked entries, re-display in a 'confirmation' > page and then do the deletes? Learn some about CGI. http://www.cgi.resourceindex.com/Documentation/CGI_Tutorials/ --  Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl --blminnfadocpnifnfgmi Content-Type: message/rfc822 Content-Disposition: inline; filename="beginners_98941.ezm" >From bqqbkgjz@yahoo.com  Sat Apr 26 15:49:27 2008 Date: Tue, 26 Feb 2008 23:59:30 -0800 (PST) From: vijay krishna  Subject: Check if a given function returns something To: soiofdvxg@perl.org MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="0-920922514-1204099170=:21977" Message-ID: <644882.21977.qm@web36204.mail.mud.yahoo.com> --0-920922514-1204099170=:21977 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Hi All,=0A            I want to check if a sub routine that I am calling re= turns a value or not. =0AThis is how my code is=0A $str =3D function(parame= ter)=0A=0Asub function=0A{=0A........=0A......=0A........=0A}=0A=0Athe sub = routine function in turn uses many other function. Some of these functions = have a return statement and some do not.=0A=0ASo, when i invoke the sub rou= tine "function" and i pass the returned value into $str, I need to check if=  $str has any value assigned or not.=0A=0ACan you tell me how I could accom= plish this?=0A=0AThanks,=0AVijay=0A=0A=0A=0A=0A      ______________________= _____________________________________=0AYahoo! Answers - Got a question? So= meone out there knows the answer. Try it=0Anow.=0Ahttp://uk.answers.yahoo.c= om/ --0-920922514-1204099170=:21977-- --blminnfadocpnifnfgmi Content-Type: message/rfc822 Content-Disposition: inline; filename="beginners_98942.ezm" >From nrrqu@earthlink.net  Sat Apr 26 15:49:27 2008 Message-ID: <18c1e5f20802270005p4c90dc99h257e5d0169ec2819@mail.gmail.com> Date: Wed, 27 Feb 2008 16:05:15 +0800 From: "Jeff Pang"  To: soiofdvxg@perl.org Subject: Re: Check if a given function returns something MIME-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit On Wed, Feb 27, 2008 at 3:59 PM, vijay krishna  wrote: > >  the sub routine function in turn uses many other function. Some of these functions have a return statement and some do not. > The caller doesn't care about what were enclosed in that function. I need only the last returned value from the called function. >  So, when i invoke the sub routine "function" and i pass the returned value into $str, I need to check if $str has any value assigned or not. > my $str = myFunction(parameter); if (defined $str) {     ... } else {     ... } Also you need to take care if the function returns a list or a scalar. for a list returned value you need to say: my @str = myFunction(parameter); --blminnfadocpnifnfgmi Content-Type: message/rfc822 Content-Disposition: inline; filename="beginners_98943.ezm" >From sgvenmhrlbyhus@gmail.com  Sat Apr 26 15:49:27 2008 Message-ID:  Date: Wed, 27 Feb 2008 09:04:50 -0500 From: "obdulio santana"  To: "Perl Beginners"  Subject: How to read from keyboard? MIME-Version: 1.0 Content-Type: multipart/alternative;  	boundary="----=_Part_7256_28608499.1204121090558" ------=_Part_7256_28608499.1204121090558 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-Disposition: inline Hi. I want to read from keyboard some keys [pagedown], [Home],[End][PageUp][up][left][down][right]. how can I do it? Thanks in advance. ------=_Part_7256_28608499.1204121090558-- --blminnfadocpnifnfgmi Content-Type: message/rfc822 Content-Disposition: inline; filename="beginners_98944.ezm" >From ahlg.rwhsv@gmail.com  Sat Apr 26 15:49:27 2008 Message-ID: <58ce48dc0802270614h30b52e45p48953722a93c03c8@mail.gmail.com> Date: Wed, 27 Feb 2008 09:14:41 -0500 From: "Chas. Owens"  To: "obdulio santana"  Subject: Re: How to read from keyboard? Cc: "Perl Beginners"  MIME-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit On Wed, Feb 27, 2008 at 9:04 AM, obdulio santana  wrote: > Hi. > >  I want to read from keyboard some keys [pagedown], >  [Home],[End][PageUp][up][left][down][right]. > >  how can I do it? > >  Thanks in advance. > Take a look at Term::GetKey. * http://search.cpan.org/~barryp/LibTerm-GetKey-1.02/GetKey.pm --  Chas. Owens wonkden.net The most important skill a programmer can have is the ability to read. --blminnfadocpnifnfgmi Content-Type: message/rfc822 Content-Disposition: inline; filename="beginners_98946.ezm" >From kejhtdbhqaeky@intergate.com  Sat Apr 26 15:49:27 2008 Date: Wed, 27 Feb 2008 12:56:03 -0500 From: MK  Subject: Re: How to read from keyboard? To: soiofdvxg@perl.org Message-Id: <1204134963l.2661l.0l@akashiraffee.enthusiasm> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii; DelSp=Yes; Format=Flowed Content-Transfer-Encoding: quoted-printable On 02/27/2008 09:04:50 AM, obdulio santana wrote: -> Hi. -> -> I want to read from keyboard some keys [pagedown], -> [Home],[End][PageUp][up][left][down][right]. -> -> how can I do it? -> -> Thanks in advance. -> -> Term::Readkey also works but is poorly documented. Does anyone know how to use the hex values from keysymdef.h (which =20 includes the entire extended keyboard) in a perl statement?  So, eg. if ($char eq "0x0057") {etc...} Or where to get values for printf "\\U" "\\u" that will work? --blminnfadocpnifnfgmi Content-Type: message/rfc822 Content-Disposition: inline; filename="beginners_98947.ezm" >From sgvenmhrlbyhus@gmail.com  Sat Apr 26 15:49:27 2008 Message-ID:  Date: Wed, 27 Feb 2008 13:28:12 -0500 From: "obdulio santana"  To: soiofdvxg@perl.org Subject: Re: How to read from keyboard? MIME-Version: 1.0 Content-Type: multipart/alternative;  	boundary="----=_Part_9405_26486960.1204136892215" ------=_Part_9405_26486960.1204136892215 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-Disposition: inline 2008/2/27, MK : > > On 02/27/2008 09:04:50 AM, obdulio santana wrote: > -> Hi. > > -> > -> I want to read from keyboard some keys [pagedown], > -> [Home],[End][PageUp][up][left][down][right]. > -> > -> how can I do it? > -> > -> Thanks in advance. > > -> > -> > > Term::Readkey also works but is poorly documented. > > Does anyone know how to use the hex values from keysymdef.h (which > includes the entire extended keyboard) in a perl statement?  So, eg. > > if ($char eq "0x0057") {etc...} > > Or where to get values for printf "\\U" "\\u" that will work? I took a look of Term::Getkeys and Term::Readkey and tested some test code but none helped me. I want to read the following keys [home][End][Pageup][Page down] please if someone has the tested version  that read  these  keys  I 'll appreciate the solution . Regards ------=_Part_9405_26486960.1204136892215-- --blminnfadocpnifnfgmi Content-Type: message/rfc822 Content-Disposition: inline; filename="beginners_98950.ezm" >From abk@stonehenge.com  Sat Apr 26 15:49:27 2008 Message-ID: <31086b240802271223s7481e593k2e4707578f8318c2@mail.gmail.com> Date: Wed, 27 Feb 2008 12:23:36 -0800 From: "Tom Phoenix"  To: "obdulio santana"  Subject: Re: How to read from keyboard? Cc: soiofdvxg@perl.org MIME-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit On Wed, Feb 27, 2008 at 10:28 AM, obdulio santana  wrote: >  I want to read the following keys [home][End][Pageup][Page down] I think you're trying to capture an escape sequence, which is a series of characters sent for certain keystrokes. I'm appending below an example program that uses Term::ReadKey. The program isn't quite correct, but I hope trying your keystrokes while it's running will help you to get to the next step. Good luck with it! --Tom Phoenix Stonehenge Perl Training #!/usr/bin/perl use strict; use warnings; use Term::ReadKey; sub readable {   my $result = '';   for my $char (split //, join '', @_) {     if ($char ge ' ' and $char le '~' and $char ne '\\\\') {       $result .= $char;     } else {       my $ord = ord $char;       if ($ord < 128) {         $result .= sprintf "\\\\x%02x", $ord;       } else {         $result .= sprintf "\\\\x{%x}", $ord;       }     }   }   $result; } END { ReadMode 'restore' } ReadMode 'raw'; print "Type !!! to quit\\n"; my $bang_count = 0; while (1) {   my $input;   while (my $key = ReadKey -1) {     $input .= $key;   }   if (not defined $input) {     # nothing typed... wait a moment...     select(undef, undef, undef, 0.1);   } elsif (length($input) > 1 and $input =~ /^\\e/) {     print qq{Escape sequence: "}, readable($input), qq{"\\n};   } else {     if ($input eq '!') {       exit if ++$bang_count >= 3;     } else {       $bang_count = 0;     }     print qq{You typed "}, readable($input), qq{"\\n};   } } __END__ --blminnfadocpnifnfgmi Content-Type: message/rfc822 Content-Disposition: inline; filename="beginners_98948.ezm" >From jgthyod@ActiveNetwerx.com  Sat Apr 26 15:49:27 2008 Date: Wed, 27 Feb 2008 13:07:43 -0700 From: "Joseph L. Casale"  Subject: Expression Help To: "'soiofdvxg@perl.org'"  Message-id: <1C8CF1EA1A5B5940B81B0710B2A4C93850BD71840E@an-ex.ActiveNetwerx.int> MIME-version: 1.0 Content-type: multipart/alternative;  boundary=_000_1C8CF1EA1A5B5940B81B0710B2A4C93850BD71840EanexActiveNet_ --_000_1C8CF1EA1A5B5940B81B0710B2A4C93850BD71840EanexActiveNet_ Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable I am trying to replace all occurrences of a windows path such as "C:\\Dir 1\\= Dir 2\\Dir with more spaces" to a similar path, and have it case insensitive= , and I can't make it work. Anyone got an idea? I am hoping the syntax is compatible with Sed as my scr= ipt has to be ran in two mode's, one being by hand with Sed :( Thanks! jlc --_000_1C8CF1EA1A5B5940B81B0710B2A4C93850BD71840EanexActiveNet_-- --blminnfadocpnifnfgmi Content-Type: message/rfc822 Content-Disposition: inline; filename="beginners_98949.ezm" >From zuroeq@users.sourceforge.net  Sat Apr 26 15:49:27 2008 Message-ID:  Date: Wed, 27 Feb 2008 15:18:19 -0500 From: yitzle  To: "Joseph L. Casale"  Subject: Re: Expression Help Cc: "soiofdvxg@perl.org"  MIME-Version: 1.0 Content-Type: multipart/alternative;  	boundary="----=_Part_16298_20887486.1204143499304" ------=_Part_16298_20887486.1204143499304 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-Disposition: inline How about providing the code that you are working with? This ought to work: s/C:\\\\Dir 1\\\\Dir 2\\\\Dir with more spaces/replacement/ __CODE__ $in = 'C:\\Dir 1\\Dir 2\\Dir with more spaces'; $in =~ s/C:\\\\Dir 1\\\\Dir 2\\\\Dir with more spaces/replacement/; print "$in\\n"; __OUTPUT__ replacement ------=_Part_16298_20887486.1204143499304--