Cross Reference: multiline.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
comp
/
multiline.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl
1
N/A
1
N/A
BEGIN
:
{
1
N/A
chdir
't'
;
1
N/A
@
INC
=
'../lib'
;
1
N/A
require
'./
test.pl
'
;
1
N/A
}
1
N/A
1
N/A
plan
(
tests
=>
6
)
;
1
N/A
1
N/A
open
(
TRY
,
'>
Comp.try
'
)
||
(
die
"Can't open temp file."
)
;
1
N/A
1
N/A
$x =
'now is the time
1
N/A
for all good men
1
N/A
to come to.
1
N/A
1
N/A
1
N/A
!
1
N/A
1
N/A
'
;
1
N/A
1
N/A
$y =
'now is the time'
.
"\n"
.
1
N/A
'for all good men'
.
"\n"
.
1
N/A
'to come to.'
.
"\n\n\n!\n\n"
;
1
N/A
1
N/A
is
($x, $y,
'test data is sane'
)
;
1
N/A
1
N/A
print
TRY
$x;
1
N/A
close
TRY
or
die
"Could not close: $!"
;
1
N/A
1
N/A
open
(
TRY
,
'
Comp.try
'
)
||
(
die
"Can't reopen temp file."
)
;
1
N/A
$count
=
0
;
1
N/A
$z =
''
;
1
N/A
while
(<
TRY
>)
{
1
N/A
$z .= $_;
1
N/A
$count
=
$count
+
1
;
1
N/A
}
1
N/A
1
N/A
is
($z, $y,
'basic multiline reading'
)
;
1
N/A
1
N/A
is
(
$count
,
7
,
' line count'
)
;
1
N/A
is
($.,
7
,
' $.'
)
;
1
N/A
1
N/A
$out
=
(
($^O
eq
'MSWin32'
)
|| $^O
eq
'NetWare'
|| $^O
eq
'VMS'
)
?
`
type
Comp.try
`
1
N/A
:
($^O
eq
'MacOS'
)
?
`
catenate
Comp.try
`
1
N/A
:
`
cat
Comp.try
`
;
1
N/A
1
N/A
like
(
$out
,
qr
/.*\n.*\n.*\n$/)
;
1
N/A
1
N/A
close
(
TRY
)
||
(
die
"Can't close temp file."
)
;
1
N/A
unlink
'
Comp.try
'
||
`/
bin
/
rm
-f
Comp.try
`
;
1
N/A
1
N/A
is
(
$out
, $y)
;