ryuk apple quiz cat quiz db 11-18 20 03 05 Как vim изменить строку до

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
[ryuk@apple:k/quiz]$ cat quiz.db (11-18 20:03:05)
Как в vim изменить строку до конца (c\$|C)
Как в vim перейти в начало строки (\^)
Как в vim перейти в конец строки (\$) $
[ryuk@apple:k/quiz]$ (11-18 20:03:05)
Пример использования класса :
#!/usr/bin/perl -w
use strict;
use lib 'lib';
use BSD::Quiz;
print <<QUIZ;
,-----. ,--.
' .-. ' ,--.,--.`--',-----. 2008 (c) vti
| | | | | || |,--.`-. / viacheslav.t\@gmail.com
' '-' '-.' '' '| | / `-. v $BSD::Quiz::VERSION
`-----'--' `----' `--'`-----'
QUIZ
my $quiz = new BSD::Quiz(
FILE => 'quiz.db',
#PROMPT => '|= > ',
);
$quiz->prompt('=> ');
$quiz->get_question;
или так
#!/usr/bin/perl -w
use strict;
use lib 'lib';
use BSD::Quiz;
print <<QUIZ;
,-----. ,--.
' .-. ' ,--.,--.`--',-----. 2008 (c) vti
| | | | | || |,--.`-. / viacheslav.t\@gmail.com
' '-' '-.' '' '| | / `-. v $BSD::Quiz::VERSION
`-----'--' `----' `--'`-----'
QUIZ
open Q => 'quiz.db' or die $!;
local $/ = undef;
my @question = split "\n" => <Q>;
close Q;
local $/ = "\n";
my $quiz = new BSD::Quiz(
QUESTIONS => [@question],
PROMPT => '|= > ',
);
$quiz->get_question;