perlform - 클라우드에서의 온라인

프로그램:

이름

perlform - Perl 형식

기술

Perl에는 간단한 보고서와 차트를 생성하는 데 도움이 되는 메커니즘이 있습니다. 이를 촉진하기 위해,
Perl은 출력 페이지가 인쇄될 때의 모양과 비슷하게 출력 페이지를 코딩하는 데 도움을 줍니다. 그것
페이지에 몇 줄이 있는지, 현재 어떤 페이지에 있는지, 언제 읽어야 하는지 등을 추적할 수 있습니다.
페이지 헤더 인쇄 등 키워드는 FORTRAN에서 빌려왔습니다. 체재() 선언하고
쓰다() 실행하다; perlfunc의 항목을 참조하세요. 다행히 레이아웃이 훨씬 더 많습니다.
읽기 쉽고 BASIC의 PRINT USING 문과 비슷합니다. 가난한 사람의 것이라고 생각하세요 노프(1).

패키지 및 서브루틴과 같은 형식은 실행되지 않고 선언되므로
프로그램의 어느 지점에서나 발생합니다. (보통은 모두 함께 보관하는 것이 가장 좋습니다.)
Perl의 다른 모든 "유형"과는 별개로 고유한 네임스페이스를 가지고 있습니다. 이는 다음을 의미합니다.
"Foo"라는 이름의 함수가 있는 경우 이름이 "Foo"인 형식을 갖는 것과는 다릅니다.
"푸". 그러나 특정 파일 핸들과 관련된 형식의 기본 이름은
파일 핸들의 이름과 동일합니다. 따라서 STDOUT의 기본 형식은 다음과 같습니다.
"STDOUT"이고 파일 핸들 TEMP의 기본 형식 이름은 "TEMP"입니다. 그들은 단지
같은. 그렇지 않습니다.

출력 레코드 형식은 다음과 같이 선언됩니다.

형식 이름 =
양식 목록
.

이름이 생략되면 "STDOUT" 형식이 정의됩니다. 싱글 "." 열 1에는 다음과 같은 데 사용됩니다.
포맷을 종료합니다. FORMLIST는 일련의 행으로 구성되며 각 행은 다음 중 하나일 수 있습니다.
세 가지 유형:

1. 첫 번째 열에 '#'을 넣어 표시하는 주석입니다.

2. 하나의 출력 라인에 대한 형식을 제공하는 "그림" 라인.

3. 이전 그림 줄에 연결할 값을 제공하는 인수 줄.

그림 줄에는 리터럴 텍스트와 혼합된 출력 필드 정의가 포함됩니다. 이것들
선은 어떤 종류의 변수 보간도 거치지 않습니다. 필드 정의가 구성됩니다.
필드를 시작하고 원하는 너비로 확장하기 위한 문자 집합에서. 이것은
필드 정의에 대한 전체 문자 세트:

@ 일반 필드의 시작
^ 특수 필드의 시작
< 왼쪽 맞춤을 위한 패드 문자
| 센터링을 위한 패드 문자
> 오른쪽 맞춤을 위한 패드 문자
# 오른쪽으로 정렬된 숫자 필드의 패드 문자
첫 번째 # 대신 0: 앞에 XNUMX이 있는 패드 번호
. 숫자 필드 내의 소수점
... 텍스트 필드를 종료하고 "..."를 잘림 증거로 표시합니다.
@* 여러 줄 값에 대한 가변 너비 필드
^* 여러 줄 값의 다음 줄에 대한 가변 너비 필드
~ 모든 필드가 비어 있는 줄을 억제합니다.
~~ 모든 필드가 소진될 때까지 라인을 반복합니다.

그림 줄의 각 필드는 "@"(at) 또는 "^"(캐럿)으로 시작합니다.
각각 "일반" 또는 "특수" 필드를 호출하겠습니다. 패드 문자 선택
필드가 텍스트인지 숫자인지 여부를 결정합니다. 물결표 연산자는
필드. 다양한 가능성을 자세히 살펴보겠습니다.

본문 Fields
필드의 길이는 필드를 여러 개의 "<", ">" 또는
"|" 숫자가 아닌 필드를 각각 왼쪽 맞춤으로 지정하는 문자
오른쪽 맞춤 또는 센터링. 일반 필드의 경우 값(첫 번째
개행)은 선택된 정렬에 따라 선택되어 인쇄되며 초과분은 잘라냅니다.
문자. "..."로 텍스트 필드를 종료하면 세 개의 점이 표시됩니다.
값이 잘립니다. 기본적인 여러 줄 텍스트를 작성하는 데 특수 텍스트 필드를 사용할 수 있습니다.
블록 채우기; 자세한 내용은 "채우기 모드 사용"을 참조하세요.

예:
형식 STDOUT =
@<<<<<< @|||||| @>>>>>>
"왼쪽", "가운데", "오른쪽"
.
출력:
왼쪽 중간 오른쪽

숫자 Fields
패딩 문자로 "#"을 사용하면 오른쪽 맞춤으로 숫자 필드를 지정합니다. 안
선택적 "." 소수점 위치를 정의합니다. 대신에 "0"(영)을 사용합니다.
첫 번째 "#", 필요한 경우 서식이 지정된 숫자 앞에 XNUMX이 채워집니다. ㅏ
값이 정의되지 않은 경우 특수 숫자 필드는 공백으로 표시됩니다. 결과값이 나오면
지정된 너비를 초과하면 필드가 오버플로 증거로 "#"으로 채워집니다.

예:
형식 STDOUT =
@### @.### @##.### @### @### ^####
42, 3.1415, 정의되지 않은, 0, 10000, 정의되지 않은
.
출력:
42 3.142 0.000 0 ####

이 어플리케이션에는 XNUMXµm 및 XNUMXµm 파장에서 최대 XNUMXW의 평균 출력을 제공하는 분야 @* for 가변 너비 멀티 라인 본문
"@*" 필드는 잘리지 않은 값을 여러 줄로 인쇄하는 데 사용할 수 있습니다. 그래야 한다(그러나
필요하지 않음)은 한 줄에 그 자체로 나타납니다. 마지막 줄 바꿈이 잘려졌지만 다른 모든 항목은
문자는 그대로 방출됩니다.

이 어플리케이션에는 XNUMXµm 및 XNUMXµm 파장에서 최대 XNUMXW의 평균 출력을 제공하는 분야 ^* for 가변 너비 한 번에 한 줄 본문
"@*"와 마찬가지로 가변 너비 필드입니다. 제공된 값은 스칼라 변수여야 합니다.
Perl은 텍스트의 첫 번째 줄(첫 번째 "\n"까지)을 필드에 넣은 다음 잘라냅니다.
다음번에 변수가 참조될 때 더 많은 내용이 포함되도록 문자열 앞에서 삭제합니다.
텍스트를 인쇄할 수 있습니다. 변수는 지원 복원됩니다.

예:
$text = "1행\n2행\n3행";
형식 STDOUT =
텍스트: ^*
$text
~~ ^*
$text
.
출력:
텍스트: 1행
라인 2
라인 3

지정 마케팅은:
값은 그림과 동일한 순서로 다음 형식 줄에 지정됩니다.
필드. 값을 제공하는 표현식은 쉼표로 구분해야 합니다. 그들은 모두
행이 처리되기 전에 목록 컨텍스트에서 평가되므로 단일 목록 표현식
여러 목록 요소를 생성할 수 있습니다. 표현은 둘 이상으로 퍼질 수 있습니다.
중괄호로 묶인 경우 줄입니다. 그렇다면 여는 중괄호는 첫 번째 토큰의 첫 번째 토큰이어야 합니다.
선. 표현식이 소수 부분이 있는 숫자로 평가되는 경우
해당 그림은 소수 부분이 출력에 나타나도록 지정합니다(즉,
여러 개의 "#" 문자를 제외한 모든 그림입니다. 없이 포함된 "."), 문자
"로케일 사용"인 경우 소수점에 사용되는 값은 현재 LC_NUMERIC 로케일에 의해 결정됩니다.
유효합니다. 이는 예를 들어 런타임 환경이 다음과 같이 발생하는 경우를 의미합니다.
독일어 로케일을 지정하면 기본 "." 대신 ","가 사용됩니다. perlllocale 및
자세한 내용은 "경고"를 참조하세요.

사용 작성 모드
텍스트 필드에서 캐럿은 일종의 채우기 모드를 활성화합니다. 임의적인 표현 대신,
제공된 값은 텍스트 문자열을 포함하는 스칼라 변수여야 합니다. Perl은
텍스트의 다음 부분을 필드에 넣은 다음 문자열 앞 부분을 잘라서
다음에 변수가 참조될 때 더 많은 텍스트가 인쇄될 수 있습니다. (예,
이는 변수 자체가 실행 중에 변경됨을 의미합니다. 쓰다() 전화하고,
복원되지 않습니다.) 텍스트의 다음 부분은 대략적인 줄바꿈으로 결정됩니다.
연산. 줄 바꿈을 강제로 수행하려면 캐리지 리턴 문자("\r")를 사용할 수 있습니다. 당신은 할 수 있습니다
$: 변수를 변경하여 중단할 수 있는 문자를 변경합니다.
영어 모듈을 사용하는 경우 $FORMAT_LINE_BREAK_CHARACTERS)를 원하는 목록에 추가하세요.
자.

일반적으로 동일한 필드와 연관된 수직 스택의 일련의 필드를 사용합니다.
스칼라 변수를 사용하여 텍스트 블록을 인쇄합니다. 마지막 필드를 다음으로 끝내고 싶을 수도 있습니다.
텍스트가 너무 길어서 출력에 표시되지 않는 경우 출력에 표시되는 텍스트 "..."
전체.

억제 선 어디에 All Fields 인가 빈
캐럿 필드를 사용하면 모든 필드가 비어 있는 줄이 생성될 수 있습니다. 그런 것을 억제할 수 있어요
줄의 아무 곳에나 "~"(물결표) 문자를 넣어 줄을 그립니다. 물결표는
출력 시 공백으로 변환됩니다.

반복 정밀도 형성 선
두 개의 인접한 물결표 문자 "~~"를 한 줄의 아무 곳에나 넣으면 그 줄은 다음과 같습니다.
라인의 모든 필드가 소진될 때까지, 즉 정의되지 않을 때까지 반복됩니다. 특별한 경우
(캐럿) 텍스트 필드는 조만간 발생하지만 at의 텍스트 필드를 사용하는 경우
다양성을 제공하는 표현은 영원히 동일한 값을 제공하지 않는 것이 좋습니다!
("shift(@f)"는 작동하는 간단한 예입니다.) 일반 (at) 숫자 필드를 사용하지 마십시오.
그런 줄에는 결코 공백이 생기지 않기 때문입니다.

Top of 형태 처리
양식 상단 처리는 기본적으로 현재와 동일한 이름을 가진 형식으로 처리됩니다.
"_TOP"이 연결된 파일 핸들입니다. 각 페이지 상단에서 실행됩니다. 보다
perlfunc로 "쓰기".

예 :

#에 대한 보고서 / etc / passwd 파일
STDOUT_TOP 형식 =
비밀번호 파일
이름 로그인 사무실 Uid Gid 홈
-------------------------------------------------- ----------------
.
형식 STDOUT =
@<<<<<<<<<<<<<<<<< @||||||| @<<<<<<@>>>> @>>>> @<<<<<<<<<<<<<<<
$name, $login, $office,$uid,$gid, $home
.

# 버그 보고서 양식의 보고서
STDOUT_TOP 형식 =
버그 리포트
@<<<<<<<<<<<<<<<<<<<<< @||| @>>>>>>>>>>>>>>>>>>>>>>>
$시스템, $%, $날짜
-------------------------------------------------- ----------------
.
형식 STDOUT =
제목: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <<<<<<<<
$ subject
색인 : @<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<< <<<<<<<<<
$인덱스, $설명
우선순위: @<<<<<<<<<< 날짜: @<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<< <
$우선순위, $날짜, $설명
보낸 사람: @<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<< <<<<<<<<<<
$출처, $설명
할당 대상: @<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<< <<<<
$프로그래머, $설명
~ ^<<<<<<<<<<<<<<<<<<<<<<<<
$설명
~ ^<<<<<<<<<<<<<<<<<<<<<<<<
$설명
~ ^<<<<<<<<<<<<<<<<<<<<<<<<
$설명
~ ^<<<<<<<<<<<<<<<<<<<<<<<<
$설명
~ ^<<<<<<<<<<<<<<<<<<<<<...
$설명
.

혼용이 가능해요 인쇄()의과 쓰다()동일한 출력 채널에 있지만
"$-"($FORMAT_LINES_LEFT)를 직접 처리해야 합니다.

형성 변수
현재 형식 이름은 $~($FORMAT_NAME) 변수에 저장되며, 현재 최상위
양식 형식 이름은 $^($FORMAT_TOP_NAME)에 있습니다. 현재 출력 페이지 번호가 저장됩니다.
$%($FORMAT_PAGE_NUMBER)이고 페이지의 줄 수는 $=입니다.
($FORMAT_LINES_PER_PAGE). 이 핸들의 출력을 자동 플러시할지 여부는 $|
($OUTPUT_AUTOFLUSH). 페이지의 각 상단(첫 번째 페이지 제외) 앞의 문자열 출력은 다음과 같습니다.
$^L($FORMAT_FORMFEED)에 저장됩니다. 이러한 변수는 파일 핸들별로 설정되므로
너는 ~해야 해. 고르다() 영향을 미치기 위해 다른 것으로 변경합니다:

선택((선택(OUTF),
$~ = "내_기타_형식",
$^ = "내_상위_형식"
)[0]);

꽤 못 생겼죠? 하지만 이는 일반적인 관용어이므로 볼 때 너무 놀라지 마세요.
최소한 임시 변수를 사용하여 이전 파일 핸들을 보관할 수 있습니다.
일반적으로 더 나은 접근 방식을 사용하면 가독성이 향상될 뿐만 아니라 이제
디버거를 단일 단계로 진행하기 위한 표현식의 중간 단계):

$ofh = 선택(OUTF);
$~ = "내_기타_형식";
$^ = "내_상위_형식";
선택($ofh);

영어 모듈을 사용하면 변수 이름도 읽을 수 있습니다.

영어를 사용하다;
$ofh = 선택(OUTF);
$FORMAT_NAME = "내_기타_형식";
$FORMAT_TOP_NAME = "내_상위_형식";
선택($ofh);

하지만 아직도 그런 웃긴 일이 있잖아 고르다()에스. 따라서 FileHandle 모듈을 사용하십시오. 이제 당신은
대신 소문자 메서드 이름을 사용하여 이러한 특수 변수에 액세스할 수 있습니다.

FileHandle을 사용하십시오.
format_name OUTF "내_기타_형식";
format_top_name OUTF "My_Top_Format";

훨씬 낫다!

노트

값 행에는 임의의 표현식이 포함될 수 있으므로(캐럿이 아닌 at 필드의 경우)
필드), 보다 정교한 처리를 다음과 같은 다른 기능으로 처리할 수 있습니다. sprintf ()
아니면 당신 자신의 것 중 하나. 예를 들어:

형식 ID =
@<<<<<<<<<<<<<
&commify($n)
.

필드에 실제 at 또는 캐럿을 가져오려면 다음을 수행하십시오.

형식 ID =
여기에 @가 있습니다.
"@"
.

전체 텍스트 줄을 중앙에 맞추려면 다음과 같이 하십시오:

형식 ID =
@|||||||||||||||||||||||||||||||||||||||||
"일부 텍스트 줄"
.

"이것을 페이지의 오른쪽에 띄우세요. 하지만"이라고 말하는 내장된 방법은 없습니다.
폭이 넓습니다." 그것이 어디로 가는지 지정해야 합니다. 정말로 절박한 사람은
현재 열 수를 기반으로 즉석에서 자체 형식을 만든 다음 eval () 그것은 :

$format = "STDOUT 형식 = \n"
. '^' . '<' x $cols . "\N"
. '$ 항목' . "\N"
. "\t^" . "<" x ($cols-8) . "~~\n"
. '$ 항목' . "\N"
. ".\N";
$Debugging인 경우 $format을 인쇄합니다.
평가 $ 형식;
$@인 경우 $@ 죽습니다.

그러면 다음과 같은 형식이 생성됩니다.

형식 STDOUT =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <<<<<<<<
$entry
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <~~
$entry
.

여기 약간 비슷한 작은 프로그램이 있습니다. fmt(1) :

형식 =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$_

.

$/ = '';
동안(<>) {
s/\s*\n\s*/ /g;
쓰다;
}

바닥 글
$FORMAT_TOP_NAME에는 현재 헤더 형식의 이름이 포함되어 있지만
바닥글에 대해 동일한 작업을 자동으로 수행하는 해당 메커니즘입니다. 방법을 모르고
큰 문제 중 하나는 평가할 때까지 큰 형식이 될 것입니다. 켜졌 어
해야 할 일리스트.

한 가지 전략은 다음과 같습니다. 고정 크기 바닥글이 있는 경우 다음을 선택하여 바닥글을 얻을 수 있습니다.
각 앞에 $FORMAT_LINES_LEFT 쓰다() 필요한 경우 바닥글을 직접 인쇄하세요.

여기에 또 다른 전략이 있습니다: "open(MYSELF, "|-")"를 사용하여 자신에 대한 파이프를 엽니다("open" 참조).
perlfunc에서) 그리고 항상 쓰다() STDOUT 대신 MYSELF로. 자녀에게 과정을 거치게 하세요
원하는 대로 머리글과 바닥글을 재정렬하려면 STDIN을 마사지하세요. 별로 편리하지도 않고,
하지만 가능합니다.

액세스 서식 내부
서식 메커니즘에 대한 낮은 수준의 액세스를 위해 다음을 사용할 수 있습니다. 형식라인() $^A에 액세스하세요.
($ACCUMULATOR 변수)를 직접적으로 사용합니다.

예 :

$str = 형식라인 <<'END', 1,2,3;
@<<< @||| @>>>
END

print "와, 방금 누산기에 '$^A'를 저장했습니다!\n";

아니면 만들려면 쓰기() 서브루틴은 다음과 같습니다. 쓰다() 뭐 sprintf () 하는 것입니다 printf (), 할
이:

잉어를 사용하십시오.
하위 쓰기 {
@_가 아니면 "사용법: PICTURE ARGS 쓰기"를 짖습니다.
내 $format = 교대;
$^A = "";
formline($format,@_);
$^A를 반환합니다;
}

$string = swrite(<<'END', 1, 2, 3);
나를 체크 아웃
@<<< @||| @>>>
END
$string 인쇄;

경고

형식을 끝내는 외로운 점은 형식을 통과하는 메일 메시지를 조기에 종료할 수도 있습니다.
잘못 구성된 인터넷 메일러(그리고 경험에 따르면 이러한 잘못된 구성이 일반적입니다.
예외는 아닙니다). 따라서 메일을 통해 포맷 코드를 보낼 때 들여쓰기를 해야 합니다.
형식 종료 점이 왼쪽 여백에 있지 않습니다. 이렇게 하면 SMTP 차단이 방지됩니다.

"my"로 선언된 어휘 변수는 형식이 아닌 한 형식 내에서 표시되지 않습니다.
어휘 변수의 범위 내에서 선언됩니다.

프로그램 환경이 LC_NUMERIC 로케일을 지정하고 "로케일 사용"이 유효한 경우
형식이 선언되면 로캘은 소수점 문자를 지정하는 데 사용됩니다.
포맷된 출력. 포맷된 출력은 "로케일 사용"으로 제어할 수 없습니다.
쓰다() 호출됩니다. 로케일 처리에 대한 자세한 내용은 perllocale을 참조하세요.

고정 길이 텍스트 필드에 표시될 문자열 내에서 각 컨트롤은
문자는 공백으로 대체됩니다. (그러나 다음을 사용할 때 "\r"의 특별한 의미를 기억하십시오.
채우기 모드.) 이는 일부 화면에서 제어 문자가 "사라질" 때 정렬 오류를 방지하기 위해 수행됩니다.
출력 미디어.

onworks.net 서비스를 사용하여 온라인으로 perlform 사용