Try this:
$FILE = $ENV{CLEARCASE_PN}; # Clearcase environment variable
open(FIX, "$FILE");
undef $/;
# This is the input record separator. You undef it
# so you can pull the entire file in as a single
# string.
$old_string = ;
(my $new_string = $old_string) =~ s/#ifdef SCCS_USED.*?#end
Has anyone by chance ever got MAIL::SENDMAIL to work with Hotmail specified
as the mail server?
best regards,
Stephen Thompson.
_
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.
__
So,
In order what would be the syntax in order to use this? Something
like:
$FILE = $ENV{CLEARCASE_PN}; #Clearcase environment variable
open(FIX, "$FILE");
while ($FILE) {
(my $new_string = $old_string) =~ s/#ifdef SCCS_USED.*?#endif//gsm;
}
close ( $FILE );
s
(my $new_string = $old_string) =~ s/#ifdef SCCS_USED.*?#endif//gsm;
Have you tried something like this?
Shawn
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf Of North,
> Wesley J
> Sent: Wednesday, March 21, 2001 3:34 PM
> To: '[EMAIL PROTECTED]'
> S
Group,
I've been tasked with removing text from files that have been under
SCCS source control. Basically I need to find the following entry and remove
it:
#ifdef SCCS_USED
static char SccsId[] = ..(etc)
#endif
this is basically SCCS keyword expansion...or ident. So I obtained a bor
I use the pl2bat utility that comes with ActivePerl. For foo.pl, "pl2bat
foo.pl" will encapsulate the contents of foo.pl in a batch file without
altering foo.pl.
Michael
> or going a step further, create a .bat file with:
> c:\perl\bin\perl.exe -w c:\scripts\myscript.pl
>
> By not using @echo o
or going a step further, create a .bat file with:
c:\perl\bin\perl.exe -w c:\scripts\myscript.pl
By not using @echo off, you'll also see the command itself appear on your
screen.
> -Original Message-
> From: Bill Duncan [mailto:[EMAIL PROTECTED]]
> Sent: Sunday, March 18, 2001 9:29 PM
>
Title: RE: Pattern Matching
Ruebel,
If I understand your intent correctly, it's because the scope of your "if" statement is too large. You need to collect ALL lines BEFORE enumerating and printing them out.
I haven't run this code, but I think this is what you mean to s
Title: RE: Pattern Matching
#!/usr/bin/perl
# - set up the list
@items = (
"1Mb network card",
"10Mb network card",
"100Mb network card",
"1Mb network card",
"Laptop",
"Monitor",
"Laptop",
);
#
Pablo Rodrigo writes:
>Please, I´m not finding the Net::Ftp.ppd in the Internet...
>Where I can find it ?
You shouldn't need to find it. Net::FTP is part of the libnet package,
which comes (IIRC) with the Activestate distribution. If you are
trying to use Net::Ftp (as per your m
I believe that it is part of the libnet bundle try :
ppm install libnet
> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: 21 March 2001 13:34
> To: [EMAIL PROTECTED]
> Subject: Problams to install the Net::Ftp
>
>
>
>
>Please, I´m
11 matches
Mail list logo
