view release on metacpan or search on metacpan
o Improve speed of NIS+ user lookup (thanks to Johannes Kornfellner).
o Promote AuthenCache and describe how to use it with this module
(thanks to Jason Bodnar).
0.04 1999 may 13 11:55
o Allow nt domain qualification of username, e.g., "ENG\gary".
0.03 1999 apr 13 11:45
o Gracefully handle error when nis+ tables are unaccessible.
0.02 1999 mar 24
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/SSI.pm view on Meta::CPAN
(?<attr_val>(?>\\"|[^"])*+)
|
(?<attr_val>(?>\\'|[^'])*+)
)
# (?>\\["']|[^"'])*+
\g{quote}
[[:blank:]\h]*
)
)
)
/xsm;
lib/Apache2/SSI.pm view on Meta::CPAN
(?(<quote_double>)
(?<attr_val>(?>\\"|[^"])*+)
|
(?<attr_val>(?>\\'|[^'])*+)
)
\g{quote}
[[:blank:]\h]*
)
)
)
/xsmi;
lib/Apache2/SSI.pm view on Meta::CPAN
(?(<func_quote_2>)
(?<func_params>(?>\\"|[^"])*+)
|
(?<func_params>(?>\\'|[^'])*+)
)
\g{func_quote}
)
|
(?<func_params>(?>\\\)|[^\)\}])*+) # parameters not surounded by quotes
)
[[:blank:]\h]* # Some possible trailing blanks
view all matches for this distribution
view release on metacpan or search on metacpan
doc/chart.texi view on Meta::CPAN
@end ifclear
@c @cross{} is a \times symbol in tex, or an "x" in info.
@c In tex it works inside or outside $ $.
@tex
\gdef\cross{\ifmmode\times\else$\times$\fi}
@end tex
@ifnottex
@macro cross
x
@end macro
@end ifnottex
@c @alph{} is \alpha symbol in tex, or an "alpha" in info.
@c In tex it works inside or outside $ $.
@tex
\gdef\alph{\ifmmode\alpha\else$\alpha$\fi}
@end tex
@ifnottex
@macro alph
alpha
@end macro
doc/chart.texi view on Meta::CPAN
higher volume than yesterday.
@tex
$$ NVI = NVI_{prev} \times \left\{ \matrix{
close \over close_{prev} & \mathop{\rm if} \; vol < vol_{prev} \cr
1 & \mathop{\rm if} \; vol \ge vol_{prev} \cr
} \right. $$
@end tex
@ifnottex
@example
/ close
doc/chart.texi view on Meta::CPAN
it's above and @math{-1} if below.
@tex
$$ Trendscore = \left\{
\matrix{
if\,close \ge close[11]\; then\; +1\; else \;-1 \cr
+\, if\,close \ge close[12]\; then\; +1\; else \;-1 \cr
\cdots \cr
+\, if\,close \ge close[20]\; then\; +1\; else \;-1 \cr
} \right. $$
$$ Trendscore = 100 \times { TripleEMA[today] - TripleEMA[yesterday]
\over TripleEMA[yesterday] } $$
@end tex
view all matches for this distribution
view release on metacpan or search on metacpan
org.seleniumhq.selenium:selenium-chrome-driver
org.seleniumhq.selenium:selenium-support
#
# Setup Geb (from repo,starting out)
cd D:\my\setup\geb\sample
git clone https://github.com/geb/geb-example-gradle
cd geb-example-gradle
gradlew chromeTest
#
# Install pip
D:\my\setup\pip\get-pip.py
#
# Install selenium
pip install selenium
# Using Python and Selenium (Geb)
#
cd D:\my\setup\geb\chromedriver_win32
ls
chromedriver.exe
sample.py
#
cat sample
import time
from selenium import webdriver
driver = webdriver.Chrome(r'D:\my\setup\geb\chromedriver_win32\chromedriver.exe') # Optional argument, if not specified will search path.
driver.get('http://www.google.com/');
time.sleep(5) # Let the user actually see something!
search_box = driver.find_element_by_name('q')
search_box.send_keys('ChromeDriver')
search_box.submit()
#
# Unzip and copy gradle-6.5 to:
cd C:\Gradle
#
# Setup Environment:
PATH_UNIX += C:\Gradle\gradle-6.5
GRADLE_HOME C:\Gradle\gradle-6.5
#
# Check that its setup:
gradle -v
#
# Sample build.gradle
# Check if a package is on hold (no updates)
dpkg --get-selections apksigner
apt-mark showhold
# Remove packages marked with rc:
dpkg -l | \grep '^rc' | nth 1 | xargs sudo dpkg --purge
#############################################################
## Linux Commands - dmesg
#############################################################
# Show which debian version name machine is (such as wheezy) (Added: 2017-10-05 11:26:48 AM)
lsb_release -cs
# Get name of our OS:
cat /etc/os-release | \grep '^ID='
ID="centos"
#############################################################
# Linux Startup
interp 20408163/s -- -2% -57%
concat 20833333/s 2% -- -56%
comma 47619048/s 133% 129% --
# Remove duplicate characters.
perl -E '$_ = "abbbc"; s/(.)\g1+/$1/; say'
abc
perl -E '$_ = "abbbc"; tr///cs; say'
abc
# Remove duplicate characters (benchmark).
perl -Me -e '
$copy = "abbc";
n {
s => sub{
local $_ = $copy;
s/(.)\g1+/$1/;
$_;
},
tr => sub{
local $_ = $copy;
tr///cs;
/(\d)(\d)/ # Match two digits, capturing them into $1 and $2
/(\d+)/ # Match one or more digits, capturing them all into $1
/(\d)+/ # Match a digit one or more times, capturing the last into $1
# Perl Regular Expressions - Captures
# To avoid this ambiguity, refer to a capture group by its number using \g{NUMBER}, and to an octal character by number using \o{OCTNUM}.
# So \g{11} is always the 11th capture group, and \o{11} is always the character whose codepoint is octal 11
# Perl Regular Expressions - Captures
# branch reset
m{
(?|
# http://www.drregex.com/2019/02/variable-length-lookbehinds-actually.html?m=1
perl -E 'say "ABXXXCD" =~ /(?<=X+)/'
Lookbehind longer than 255 not implemented in regex m/(?<=X+)/ at -e line 1.
#
# Workaround:
perl -E '$r = qr/ (?=(?<a>[\s\S]*)) (?<b> X++ (?=\g{a}\z) | (?<= (?= x^ | (?&b) ) [\s\S] ) )/x; say "ABXXXCD" =~ $r'
perl -E '$r = qr/ (?=(?<a>(?s:.*))) (?<b> X++ (?=\g{a}\z) | (?<= (?= x^ | (?&b) ) (?s:.) ) )/x; say "ABXXXCD" =~ $r'
CD
#
# Explanation:
(?=(?'a'[\s\S]*)) # Capture the rest of the string in "a"
(?'b'
#
# Then use it like:
# (?&name)
#
# Example:
perl -E '"look mk" =~ / (l (?&same_char) )k \s (.)k (?(DEFINE) (?<same_char> (.) \g{-1} ) ) /x; say "got: 1:$1, 2:$2, 3:$3, 4:$4"'
# Check for existence of a capture group.
# Can use either:
# - ({ exists $+{var} })
# - (?<var>IF|ELSE)
#
# Compare to:
https://www.raspberrypi.org/documentation/hardware/raspberrypi/revision-codes/README.md
# Find out the total on a linux machine (pi)
local ram=$(\grep MemTotal /proc/meminfo | perl -lne '($kb)=/(\d+)/; printf "%0.2fGB", $kb/1024/1024')
#############################################################
## PI - Network Interface
#############################################################
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/installguide/hosted.pod view on Meta::CPAN
database password). Then you should be able to log in directly with the mysql
command line client. Some sample commands are shown, but it is assumed that
you will read the MySQL documentation and know what you are doing.
# mysql
Welcome to the MySQL monitor. Commands end with ; or \g.
Your MySQL connection id is 1742668 to server version: 4.1.20-standard-log
Type 'help;' or '\h' for help. Type '\c' to clear the buffer.
mysql> \s # show connection status
view all matches for this distribution
view release on metacpan or search on metacpan
t/dispatch/top.t view on Meta::CPAN
req( $test, 400, $user, 'GET', "$base/bla bla bal" );
req( $test, 400, $user, 'GET', "$base//////1/1/234/20" );
req( $test, 400, $user, 'GET', "$base/{}" );
req( $test, 400, $user, 'GET', "$base/-1" );
req( $test, 400, $user, 'GET', "$base/0" );
req( $test, 400, $user, 'GET', "$base/" . '\b\b\o\o\g\\' );
req( $test, 400, $user, 'GET', "$base/" . '\b\b\o\o\\' );
req( $test, 400, $user, 'GET', "$base/**0" );
req( $test, 400, $user, 'GET', "$base/}lieutenant" );
req( $test, 400, $user, 'GET', "$base/<HEAD><tail><body> " );
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/ElasticSearch/Utilities.pm view on Meta::CPAN
DATE => qr/
(?<datestr>
(?<year>\d{4}) # Extract 4 digits for the year
(?:(?<datesep>[\-.]))? # Optionally, look for . - as a separator
(?<month>\d{2}) # Two digits for the month
\g{datesep} # Whatever the date separator was in the previous match
(?<day>\d{2}) # Two digits for the day
(?![a-zA-Z0-9]) # Zero width negative look ahead, not alphanumeric
)
/x,
);
view all matches for this distribution