First line of input file not accessible.
Peter West via beginners <[email protected]> Wed, 17 Jul 2024 17:41:22 +1000
| Newsgroups | gmane.comp.lang.perl.beginners |
|---|---|
| Message-ID | <[email protected]> |
$ uname -a
Darwin Rosie.local 23.5.0 Darwin Kernel Version 23.5.0: Wed May 1 =
20:16:51 PDT 2024; root:xnu-10063.121.3~5/RELEASE_ARM64_T8103 arm64
$ locale
LANG=3D"en_AU.UTF-8"
LC_COLLATE=3D"en_AU.UTF-8"
LC_CTYPE=3D"en_AU.UTF-8"
LC_MESSAGES=3D"en_AU.UTF-8"
LC_MONETARY=3D"en_AU.UTF-8"
LC_NUMERIC=3D"en_AU.UTF-8"
LC_TIME=3D"en_AU.UTF-8"
LC_ALL=3D"en_AU.UTF-8=E2=80=9D
$ perl --version
This is perl 5, version 34, subversion 3 (v5.34.3) built for =
darwin-thread-multi-2level
$ cat print_file
#!/usr/bin/perl -n
while (<>) {
print "$. $_";
}
exit;
$ print_file /tmp/orgs2
2
3 DevHub CCIDevHub [email protected] =
00DdM000003155ZUAQ Connected
4 DevHub DevHub [email protected] =
00DW2000000afcXMAQ Connected
5 DevHub DevHub2 [email protected] =
00DdL000000IZqeUAG Connected
6 DevHub LightningAppTest [email protected] =
00DdM000006N6TaUAK Connected
7 DevHub PackageTestPlayground [email protected] =
00DdM000005tVl5UAE Connected
8 Scratch 201-3-4 [email protected] =
00DFf000000TjmXMAS Active 2024-07-15
9 Scratch AppTest1-S1 [email protected] =
00DHF000000RGNG2A4 Active 2024-07-18
10
$ wc -l /tmp/orgs2
10 /tmp/orgs2
$ cat /tmp/orgs2
Type Alias Username Org ID =
Status Expires
DevHub CCIDevHub [email protected] =
00DdM000003155ZUAQ Connected
DevHub DevHub [email protected] =
00DW2000000afcXMAQ Connected
DevHub DevHub2 [email protected] =
00DdL000000IZqeUAG Connected
DevHub LightningAppTest [email protected] =
00DdM000006N6TaUAK Connected
DevHub PackageTestPlayground [email protected] =
00DdM000005tVl5UAE Connected
Scratch 201-3-4 [email protected] =
00DFf000000TjmXMAS Active 2024-07-15
Scratch AppTest1-S1 [email protected] =
00DHF000000RGNG2A4 Active 2024-07-18
$
What happened to line 1?
=E2=80=94
Peter West
[email protected]
`=E2=80=9CMary.=E2=80=9D She turned and said to him in Aramaic, =
=E2=80=9CRabboni!=E2=80=9D`
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/