lug-bg: Re: lug-bg: ORM (Object Relational Modelling) tool за Линукс

2005-03-07 Thread Sava Chankov 
Andrey Andreev wrote:
,
   ,   ORM 
(Object Relational _Modelling_,   Mapping)  
  ,   ,   . 
   plugin  Visio Enterprise Architect,   
,   (  
 ).

ORM 
  ?


  UML dia.   
 ,   .
  ,  UML 
   .
dia- dia2sql, , , 
 SQL. 
   , .

--
Sava Chankov  
research and development
http://www.blueboard.biz  

A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html

Re: lug-bg: Perl system() or exec()

2005-03-07 Thread Sava Chankov 
Daniel wrote:
  ,
  .  
   sed. -
mv file file.tmp;
sed s/^$something.*$/$somethingandsomethingelse/ file.tmp  file
rm file.tmp

 ,, system() .  
,e $somethingelse  1,2,3 (  
), ,   
 -  ! , // .   
, 
   -  -.  | -   
, \\.
.. -(|)   
   -  .  
 . sed2perl   .

:
perl -pi -e 's/^$something.*$/$somethingandsomethingelse/' file
-p  assume 'while () { ... }' loop around program but print line
also, like sed
-i[extension]   edit  files in place (makes backup if extension supplied)
-e program  one line of program (several -e's allowed, omit programfile)
--
Sava Chankov  
research and development
http://www.blueboard.biz  

A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html

Re: lug-bg: Perl system() or exec()

2005-03-07 Thread Peter Pentchev 
On Mon, Mar 07, 2005 at 11:10:12AM +0200, Sava Chankov wrote:
 Daniel wrote:
   ,
   .  
sed. -
 mv file file.tmp;
 sed s/^$something.*$/$somethingandsomethingelse/ file.tmp  file
 rm file.tmp
 
  ,, system() .  
 ,e $somethingelse  1,2,3 (  
 ), ,   
  -  ! , // .   
 , 
-  -.  | -   
 , \\.
 .. -(|)   
-  .  
  . sed2perl   .
 
 :
 
 perl -pi -e 's/^$something.*$/$somethingandsomethingelse/' file
 
 -p  assume 'while () { ... }' loop around program but print 
 line
 also, like sed
 -i[extension]   edit  files in place (makes backup if extension supplied)
 -e program  one line of program (several -e's allowed, omit programfile)

  ,  
,  $something  something else  ,  
 .  perl -pi
 system()  exec() 
  sed; 
 :)

,


-- 
Peter Pentchev  [EMAIL PROTECTED][EMAIL PROTECTED][EMAIL PROTECTED]
PGP key:http://people.FreeBSD.org/~roam/roam.key.asc
Key fingerprint FDBA FD79 C26F 3C51 C95E  DF9E ED18 B68D 1619 4553
I've heard that this sentence is a rumor.


pgpTHzU9q3OG4.pgp
Description: PGP signature

Re: lug-bg: Perl system() or exec()

2005-03-07 Thread Sava Chankov 
Peter Pentchev wrote:
On Mon, Mar 07, 2005 at 11:10:12AM +0200, Sava Chankov wrote:
Daniel wrote:
  ,
  .  
   sed. -
mv file file.tmp;
sed s/^$something.*$/$somethingandsomethingelse/ file.tmp  file
rm file.tmp

 ,, system() .  
,e $somethingelse  1,2,3 (  
), ,   
 -  ! , // .   
, 
   -  -.  | -   
, \\.
.. -(|)   
   -  .  
 . sed2perl   .
:
perl -pi -e 's/^$something.*$/$somethingandsomethingelse/' file
-p  assume 'while () { ... }' loop around program but print 
line
   also, like sed
-i[extension]   edit  files in place (makes backup if extension supplied)
-e program  one line of program (several -e's allowed, omit programfile)
  ,  
,  $something  something else  ,  
 .  perl -pi
 system()  exec() 
  sed; 
 :)
,

,  . 
,   , 
  - - 
. perl , 
 ,   sed  system()  exec(), 
   (   ):

 open(INFILE, '', $infile) or die Opening $infile: $!\n;
  $tmpfile = $outfile.tmp;
  open(OUTFILE, '', $tmpfile) or die Opening $tmpfile: $!\n;
  while (INFILE) {
s/^$something.*$/$somethingandsomethingelse/;
print OUTFILE;
  }
  close INFILE;
  close OUTFILE;
  rename $tmpfile, $outfile or die Renaming to $outfile: $!\n;
  -  ,$something  
$somethingandsomethingelse   ( - ), 
   ,   
 ,  -perl.  
:)

--
Sava Chankov  
research and development
http://www.blueboard.biz  

A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html

Re: lug-bg: Perl system() or exec()

2005-03-07 Thread Peter Pentchev 
On Mon, Mar 07, 2005 at 11:37:17AM +0200, Sava Chankov wrote:
 Peter Pentchev wrote:
 On Mon, Mar 07, 2005 at 11:10:12AM +0200, Sava Chankov wrote:
 Daniel wrote:
   ,
   .  
sed. -
 mv file file.tmp;
 sed s/^$something.*$/$somethingandsomethingelse/ file.tmp  file
 rm file.tmp
 
  ,, system() .  
 ,e $somethingelse  1,2,3 (  
 ), ,   
  -  ! , // .   
 , 
-  -.  | -   
 , \\.
 .. -(|)   
-  .  
  . sed2perl   .
 :
 
 perl -pi -e 's/^$something.*$/$somethingandsomethingelse/' file
 
 -p  assume 'while () { ... }' loop around program but print 
 line
also, like sed
 -i[extension]   edit  files in place (makes backup if extension 
 supplied)
 -e program  one line of program (several -e's allowed, omit 
 programfile)
 
   ,  
 ,  $something  something else  ,  
  .  perl -pi
  system()  exec() 
   sed; 
  :)
 
 ,
 
 
 
 ,  .   
   ,   ,  
  -  
- . 
 perl ,  ,   
 sed  system()  exec(), 
(   ):
 
  open(INFILE, '', $infile) or die Opening $infile: $!\n;
   $tmpfile = $outfile.tmp;
   open(OUTFILE, '', $tmpfile) or die Opening $tmpfile: $!\n;
   while (INFILE) {
 s/^$something.*$/$somethingandsomethingelse/;
 print OUTFILE;
   }
   close INFILE;
   close OUTFILE;
   rename $tmpfile, $outfile or die Renaming to $outfile: $!\n;
 
   -  ,$something  
 $somethingandsomethingelse   ( - ),
 ,  
   ,  -perl. 
  :)

  , 
 ... ..

(!)

(and then he was enlightened ;)

, ,  - ,
   :)  ...

  perl -pi -e '$something=blah; $somethingelse=neshto po-slozhno; 
s/^$something/$somethingelse/' filename

...  :)

$something  $somethingelse,
   , ...

  perl -pi -e 'BEGIN { $something=blah; $somethinglese=furrfu; }  
s/^$something.*\$/$somethingelse/g'

   Perl,   :P
(- ,  ;)

,


-- 
Peter Pentchev  [EMAIL PROTECTED][EMAIL PROTECTED][EMAIL PROTECTED]
PGP key:http://people.FreeBSD.org/~roam/roam.key.asc
Key fingerprint FDBA FD79 C26F 3C51 C95E  DF9E ED18 B68D 1619 4553
No language can express every thought unambiguously, least of all this one.


pgpxeMcWd9ciD.pgp
Description: PGP signature

Re: lug-bg: Perl system() or exec()

2005-03-07 Thread Sava Chankov 
Peter Pentchev wrote:
On Mon, Mar 07, 2005 at 11:37:17AM +0200, Sava Chankov wrote:
Peter Pentchev wrote:
  ,
  ... ..
  ? ,  @ARGV,
  %ENV. :
SOMETHING=life;SOMETHINGELSE=something else;perl -pi 
-e's/$ENV{SOMETHING}/$ENV{SOMETHINGELSE}/og'
$something  $somethingelse   
,, ...
perl -pi -e 'BEGIN { $something=blah; $somethinglese=furrfu; }
s/^$something.*\$/$somethingelse/g'
 
perl -pi -e '$something=blah; $somethinglese=furrfu; s/^$something.*\$/$somethingelse/og'

/o - compile the regexp only once
--
Sava Chankov  
research and development
http://www.blueboard.biz  

A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html

Re: lug-bg: Perl system() or exec()

2005-03-07 Thread Peter Pentchev 
On Mon, Mar 07, 2005 at 01:16:53PM +0200, Sava Chankov wrote:
 Peter Pentchev wrote:
 On Mon, Mar 07, 2005 at 11:37:17AM +0200, Sava Chankov wrote:
 Peter Pentchev wrote:
   ,
   ... ..
 
   ? 
 ,  @ARGV,  
 %ENV. :
 
 SOMETHING=life;SOMETHINGELSE=something else;perl -pi 
 -e's/$ENV{SOMETHING}/$ENV{SOMETHINGELSE}/og'
 
 $something  $somethingelse   
 ,, ...
 
 perl -pi -e 'BEGIN { $something=blah; $somethinglese=furrfu; }
 s/^$something.*\$/$somethingelse/g'
 
  
 perl -pi -e '$something=blah; $somethinglese=furrfu; 
 s/^$something.*\$/$somethingelse/og'
 
 /o - compile the regexp only once

,  BEGIN,   
,**  $something  $somethingelse
 - /.  
 BEGIN, 
  :)

  -  - -  
 : BEGIN
   s///o.,   
  /g-   match-
 ? :)

,


-- 
Peter Pentchev  [EMAIL PROTECTED][EMAIL PROTECTED][EMAIL PROTECTED]
PGP key:http://people.FreeBSD.org/~roam/roam.key.asc
Key fingerprint FDBA FD79 C26F 3C51 C95E  DF9E ED18 B68D 1619 4553
yields falsehood, when appended to its quotation. yields falsehood, when 
appended to its quotation.


pgp0lAypveNxx.pgp
Description: PGP signature

Re: lug-bg: Perl system() or exec()

2005-03-07 Thread Sertys 
On Mon, 7 Mar 2005 13:45:05 +0200, Peter Pentchev [EMAIL PROTECTED] wrote:
On Mon, Mar 07, 2005 at 01:16:53PM +0200, Sava Chankov wrote:
Peter Pentchev wrote:
On Mon, Mar 07, 2005 at 11:37:17AM +0200, Sava Chankov wrote:
Peter Pentchev wrote:
  ,
  ... ..
  ?
,  @ARGV,  

%ENV. :

SOMETHING=life;SOMETHINGELSE=something else;perl -pi
-e's/$ENV{SOMETHING}/$ENV{SOMETHINGELSE}/og'
$something  $somethingelse   
,, ...

perl -pi -e 'BEGIN { $something=blah; $somethinglese=furrfu; }
s/^$something.*\$/$somethingelse/g'

perl -pi -e '$something=blah; $somethinglese=furrfu;
s/^$something.*\$/$somethingelse/og'
/o - compile the regexp only once
,  BEGIN,   
,**  $something  $somethingelse
 - /.  
 BEGIN, 
  :)
  -  - -  
 : BEGIN
   s///o.,   
  /g-   match-
 ? :)
,

   
,  RegExp   perl.  
.   . , 
, , ,
.  ,  .   
  :
open (INFILE,infile.txt) || die Would not open IN;
while(INFILE){
if($_ =~ m/^$something\|\|.*$/i){
$temp .= $something||$somethingelse\n;		# || ne e operator
}
else{
$temp .= $_
}
}
close INFILE;
open (OUTFILE,infile.txt);
print OUTFILE $temp;
close OUTFILE;
undef $temp;


--
www.supportivo.org
I can't stop myself checking for pigs in the outlets. Everybody thinks i'm  
a punk, cause of the hairstyle(220V).
end

A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html